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ogo es sinónimo de sencillez y potencia, dos ca- 
racterísticas que rinden honor a los autores del 
lenguaje y que hacen que éste sea el mejor can- 
didato a la utilización, siempre más cercana, de 
la informática en la escuela. 

La finalidad de este libro de la B.B.I es guiar 
al lector en el aprendizaje de las informaciones 
necesarias para poderse enfrentar después con 
problemas más complejos. Quien ya posea co- 
nocimientos en este campo encontrará en el texto informaciones 
interesantes. 

Desde luego, este libro, como otros, no podrá enseñar com- 
pletamente lo que quiere decir "saber programar bien”; sólo la ex- 
periencia conseguida por cada uno de nosotros y completada por 
un buen bagaje teórico convierten a un programador cualquiera 
en un programador competente. 

En el libro se tratarán las versiones del lenguaje implemen- 
tadas en los sistemas COMMODORE 64 y APPLE Il; por motivos 
de claridad, sin embargo, los primeros capítulos que examinan el 
lenguaje desde el punto de vista general, basarán sus ejemplos 
en el LOGO TERRPIN del CMB 64. En los capítulos sucesivos se 
analizarán los detalles técnicos relativos a cada versión. 


LA TORTUGA, SU RASTRO Y LA RESOLUCION 
GRAFICA 


l símbolo que, además de ser una novedad, ha 
contribuido a dar fama en el mundo de la infor- 
mática al lenguaje "LOGO" es la tortuga (“turtle”): 
moviéndola en la pantalla va dejando una pista 

o largo de su recorrido, dibujando imágenes 
de diferentes tipos y colores. 

Estudiaremos en este capítulo cuáles son las 
funciones de la tortuga y, en particular, las ins- 
trucciones que están en la base de sus movi- 
mientos y del dibujo en general. 


Control directo de la tortuga 


Nuestro ordenador puede trabajar de dos formas diferentes 
a la hora de visualizar una imagen: en “BAJA” y en "ALTA” reso- 
lución gráfica (hablaremos también del modo TEXTO y del modo 
GRAFICO). 

El primer tipo de visualización es típico de la computadora 
en el momento del encendido; si vulsamos las teclas de la conso- 
la veremos inmediatamente en la pantalla los caracteres corres- 
pondientes. 

Si queremos realizar en la pantalla imágenes a nuestro gusto 
utilizando exclusivamente los caracteres, podemos manejarlos de 
tal manera que obtengamos una figura que se aproxime a la que 
deseamos: 


AAAA 


Al contrario, el modo de "alta resolución” da la posibilidad al 
programador de trazar gráficos y figuras con mayor precisión: él 
tiene a su disposición una pantalla gráfica en la cual puede dibu- 
jar, punto por punto, las imágenes necesarias. 


e 


Por lo general, la utilización del modo de alta resolución pre- 
senta notables dificultades de utilización por parte del usuario: el 
lenguaje LOGO ha sido estudiado (también) para permitir al pro- 
gramador controlar individualmente cada punto de la pantalla de 
manera fácil y eficaz, permitiéndole aprovechar completamente 
las posibilidades gráficas de la compuladora sin, recurrir a pesa- 
dos, además de difíciles, cálculos de coordenadas ' 


8 


El LOGO permite la completa (luego veremos qué quiere de- 
cir este término) utilización de una ventana vídeo formada por "X” 
puntos horizontales y por “Y” verticales (dos parámetros variables 
según el tipo de ordenador utilizado) sobre la cual se pueden tra- 
zar gráficos y dibujos. 

La primera instrucción que vamos a examinar será, conside- 
rando las premisas: 


DRAW (return) 


que borra la pantalla, pone en el centro a la tortuga y predispone 
la panzalla en ALTA RESOLUCION. En particular, la parte superior 
de la pantalla visualiza la página gráfica, mientras la inferior que- 
da de manera texto, es decir, queda en baja resolución con el fin 
de poder seguir nuevas instrucciones y, eventualmente, permitir 
la lectura de los mensajes de error, 

Esta es una de las tres combinaciones posibles de pantalla 
que pueden ser elegidas por medio de las teclas de funciones: 


Fl Pantalla completa en forma texto. 
F3. Pantalla dividida en alta resolución y forma texto. 
FS: Pantalla completamente en alta resolución. 


En los ordenadores no dotados de teclas de función y en los 
que las tienen es posible conseguir también los mismos resulta- 
dos pulsando: 


TEXTSCREEN (return): forma texto. 
SPLISCREEN (return): gráfica y texto simultáneamente. 
FULLSCREEN (retum): sólo gráfica. 


Pulsamos ahora SPLITSCREEN (return) y podremos observar 
a la vez los mandos pulsados (en la parte baja de la pantalla) y 
los resultados relativos (en la parte superior), como indica la Fi- 


gura 1. 
Escribamos, por ejemplo: 


FORWARD 50 <RETURN> 


Veremos cómo la tortuga, desde su posición inmóvil en el 
centro de la pantalla, se mueve hacia delante 50 posiciones, tra- 
zando una línea recta entre el punto donde anteriormente se en- 
contraba y el punto alcanzado (Fig. 2). 

Par lo tanto, la sintaxis es (en lo sucesivo no explicitaremos 
ya la necesidad de pulsar la tecla <RETURN> de retorno de carro): 


FORWARD (Posiciones a avanzar) 


En Figura 1.—Al pulsar SPLITSCREEN la parte superior de la pantalla 
queda en modo gráfico y la parte inferior en modo texto. 


por tanto, pulsando: 
FORWARD 10 Avanza hacia adelante 10 posiciones 


FORWARD 100 Avanza hacia adelante 100 posiciones 
FORWARD 120 Avanza hacia adelante 120 posiciones 
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Figura 2.—El comando FORWARD permite que la tortuga avance en 
línea recta. 


Si ahora queremos obtener el resultado opuesto, haciendo re- 
troceder el cursor escribiremos: 


BACK 50 


y la tortuga, si nos hemos quedado en la figura 1.2, se vuelve a 
colocar como en la figura 1.1. 

La sintaxis es, por consiguiente, similar a la adoptada por 
FORWARD: 


BACK (Posiciones a retroceder) 
Pulsando: 


BACK 10 Retrocede 10 posiciones 
BACK 100 Retrocede 100 posiciones 
BACK 120 Retrocede 120 posiciones 


Ahora que sabemos cómo movernos en línea recta, veamos 
cómo podemos variar nuestra trayectoria. 

Para hacer esto usamos dos instrucciones cuyo nombre 
explica ya ampliamente su función: RIGHT (derecha) y LEFT (iz- 
quierda). 

Pulsamos: 


RIGHT 90 
veremos el cursor (la tortuga) girar hacia la derecha 90 grados. 
Y con: 
LEFT 90 
volverá a su posición original, después de haber girado hacia la 
izquierda 90 grados. 


Recordamos, para aquellos que no tengan mucha familiaridad 
con la anotación sexagesimal de los ángulos, que: 


Circunferencia =360 grados 

Media circunferencia =180 grados 

Angulo recto = 90 grados 
y que: 


e los ángulos internos de un triángulo equilátero (todos sus 
lados iguales) valen 60 grados; 
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e la suma de los ángulos internos de cualquier triángulo es 
180 grados; 

e losángulos internos de un cuadrado o de un rectángulo va- 
len 90 grados; 

e los ángulos internos de un hexágono regular valen 120 gra 
dos. 


Es correcto escribir: 


RIGHT (grados de rotación a la derecha) 
LEFT (grados de rotación a la izquierda) 


Reflejemos a continuación un ejemplo que muestre la utilidad 
de los cuatro mandos básicos que acabamos de ver y que a la 
vez nos sirva para trazar una figura geométrica. 

Para obtener un triángulo equilátero pulsemos: 


LEFT 90 


gira la tortuga 90 grados hacia la izquierda, disponiéndola a es- 
cribir en horizontal respecto al plano visual, pues inicialmente está 
“mirando” hacia arriba; 


FORWARD 50 


avanza 50 posiciones, trazando una línea recta horizontal que re- 
presenta la mitad izquierda de la base del triángulo, 


RIGHT 120 


gira el cursor 120 grados a la derecha. Recordando que el ángulo 
llano es de 180 grados y que el ángulo interno de un triángulo 
equilátero es de 60, el ángulo de rotación exacto es el resultado 
de 180-60=120; 


FORWARD 100 


avanza 100 posiciones en sentido oblicuo con una inclinación res- 
pecto a la base de 60 grados, formando el lado izquierdo del trián- 
gulo; 


RIGHT 120 


rota 120 grados a la derecha. Para la medida de los grados vale 
el ejemplo anterior: 180-60=120; 


FORWARD 100 
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avanza 100 posiciones, generando el lado derecho del triángulo; 
RIGHT 120 


cierra la rotación con un último ángulo de 120 grados a la dere- 
cha. La tortuga está de nuevo horizontal respecto al plano; 


FORWARD 50 
termina la construcción del triángulo trazando la segunda mitad 
del lado base (Fig. 3). 
Dibujemos ahora un cuadrado. 
RIGHT 90 
rotando la tortuga a la derecha la ponemos sobre el plano hori- 
zontal (en el programa anterior hemos obtenido el mismo resul- 
tado con la rotación a la izquierda); 
FORWARD 50 
traza la mitad del lado de base; 
LEFT 90 
gira a la izquierda 90 grados creando el ángulo de base derecho; 
FORWARD 100 
avanza 100 posiciones dibujando el lado derecho; 


> 


LEFT 90 
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PR EN 


ES Figura 3.—Triángulo equilátero, fácilmente realizable con el LOGO. 
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90 grados a la izquierda. Crea el vértice superior derecho; 
FORWARD 100 
traza la base superior, 
RIGHT 90 
vamos a hacer esta operación un poco complicada; para crear el 
ángulo superior izquierdo sería suficiente escribir LEFT 90, pero, 
en cambio, de esta manera podremos mostrar la utilización de la 
instrucción BACK, 
BACK 100 


lleva la tortuga hasta la base del cuadrado, trazando el lado iz- 
quierdo; 


RIGHT 90 


último ángulo (inferior izquierdo). Es RIGHT, pues hemos bajado 
“de espaldas”; 


FORWARD 50 
traza la segunda mitad de la base (Fig. 4). 


El programa que a continuación vemos, dibuja, análogamente 
a los anteriores, otra figura geométrica regular (Fig. 4). 


Figura 4. —Cuadrado y hexágono regular obtenidos con comandos 
/ directos. 
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LEFT 90 
FORWARD 35 
RIGHT 60 
FORWARD 70 
RIGHT 60 
FORWARD 70 
RIGHT 60 
FORWARD 70 
RIGHT 60 
FORWARD 70 
RIGHT 60 
FORWARD 70 
RIGHT 60 
FORWARD 35 


Estudiemos ahora dos instrucciones de relevante importancia 
para la programación gráfica, que permiten la colocación de la tor- 
tuga en cualquier zona de la pantalla. 

Veámoslas en la forma operativa (o directa) 


SETX X 


lleva la tortuga hasta el punto de abscisa "x”, pero no cambia la 
ordenada. Este ejemplo es válido, obviamente, pensando en la 
pantalla como en un plano sobre el cual está fijado un sistema de 
referencia de ejes cartesianos ortogonales, como se muestra en la 
figura 5. t 


SETY y 
fuerza la ordenada de la tortuga al valor “y”, no alterando la posi- 
ción horizontal (abscisa). 


SETXY x y 


lleva a la tortuga hasta el punto de coordenadas cartesianas (X, y). 
Es importante subrayar que si hacemos desplazarse a la tor- 
tuga desde el punto “A” hasta el punto "B” ésta dejará detrás de 
sí la “pista” habitual: seguidamente veremos cómo se puede evi- 
tar esto usando el comando PENUP. ; 
Utilizando estos comandos resultará muy fácil trazar un cua- 
drado: 
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Figura 5.—Sistema cartesiano de referencia considerado para fijar la 
posición de un punto en la pantalla. 


HOME 
CLEARSCREEN 
SETY 30 
SETX 30 
SETY O 

SETX O 


La primera instrucción, HOME, lleva la tortuga a la posición cen- 
tral de la pantalla (origen de los ejes) y además sitúa la cabeza 
de la tortuga paralelamente al eje de las ordenadas positivas (y+). 
La segunda instrucción de la lista antes mencionada limpia 
completamente la pantalla colocada en alta resolución. 
De hecho, pulsando solamente 


CLEARSCREEN 


desaparecerán todas las figuras anteriores del área interna gráfi- 
ca sin que, de cualquier manera, resulten modificados los pará- 
metros definidos anteriormente como color, modo pantalla y, so- 
bre todo, posición de la tortuga. 

Se ha escrito en orden antes HOME y luego CLEARSCREEN 
porque haciéndolo de manera inversa, después de borrar la pan- 
talla (CLEARSCREEN) se trazaría la línea recta que une la posi- 
ción de la tortuga con el centro de la pantalla (HOME), con lo cual 
ésta se “ensuciaría' de nuevo. 

Además, existe un comando más complejo capaz de llevar a 
cabo simultáneamente las funciones de borrar la pantalla y de co- 
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locar de nuevo en el centro de ésta a la tortuga. Se trata (como 
hemos dicho ya) de: 


DRAW 


Vamos a analizar la siguiente serie de instrucciones, que re- 
sumen lo que se ha descrito hasta ahora dibujando una letra y 
que, al mismo tiempo, permite el examen de dos instrucciones 
nuevas. 


HOME 

CLEARSCREEN 

FORWARD 120 

RIGHT 90 

FORWARD 40 

RIGHT 90 

PENUF 11] 
FORWARD 60 

RIGHT 90 

FENDOWN [2] 
FORWARD 40 

LEFT 90 

FORWARD 60 

LEFT 90 

FORWARD 40 

FENDOWN [21 
FORWARD 40 . 
LEFT 90 

FORWARD 60 

LEFT 90 

FORWARD 40 
La instrucción marcada (1), como habrán podido notar duran- 

te la ejecución del programa, ha inhibido la “mancha” de la tortu- 


ga, que se ha desplazado sin escribir ni borrar; posteriormente las 
marcadas (2) la han reactivado para escribir la letra E. 


En resumen: 
PENUP 
hace que el movimiento de la tortuga no quede marcado, y 
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PENDOWN 


es su contrario, activando de nuevo el dibujo de los movimientos. 
Si al finalizar el programa anterior pulsáramos 


HIDETURTLE 


veríamos desaparecer de la pantalla a la tortuga. Es importante no- 
tar que aunque sea invisible sigue dejando su pista (a no ser que 
antes hubiéramos pulsado PENUP). 

Para cerciorarnos de lo dicho escribamos: 


HOME 
CLEARSCREEN 
HIDETURTLE 
FORWARD 100 


Para visualizar de nuevo la tortuga usaremos 
SHOWTURTLE 

Otra instrucción que actúa sobre la plumilla es 
PENERASE 


Como consecuencia del uso de este comando, la tortuga, al mo- 
verse, borra en vez de escribir. 

Veamos un ejemplo de cómo utilizar correctamente esta ins- 
trucción: 


FORWARD 100 
PENERASE 
BACK 100 


Al final no queda ningún rastro: tal y como apareció, desapareció. 
Pulsando seguidamente 


PENCOLOR X 


con X entero y positivo veremos de nuevo la pista. 
Para que el cursor se vea de nuevo hay que escribir 


SHOWTURTLE 
Finalmente observemos el efecto de 
STAMPCHAR "A 
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Esta instrucción permite la impresión de los caracteres están- 
dar en alta resolución; imprime la letra en la posición siguiente a 
la que se encuentra la tortuga. 

Por lo tanto, si escribimos 


CLEARSCREEN 
STAMPCHAR “A 


veremos a nuestra tortuga dibujar la letra “A” en la pantalla defi- 
nida en alta resolución. 


Los colores 


En este párrafo nos ocuparemos de instrucciones que tienen 
gran importancia en el contexto de una programación agradable 
y estéticamente válida. 

Hablamos, evidentemente, de comandos que pueden cambiar 
las características cromáticas de la pantalla, del fondo, de las lí- 
neas trazadas en alta resolución y de la tortuga. 

Examinemos, ante todo, una instrucción que cambia el color 
de la página de alta resolución. Escribiremos: 


BACKGROUND 5 (return) 


La pantalla puesta en alta resolución toma el color correspon- 
diente al código 5. 
La sintaxis, por lo tanto, es: 


BACKGROUND (código-color) h 


Por lo que se refiere a la relación código-color, ésta varía se- 
gún el ordenador y la pantalla utilizados; la tabla 1 es la de refe- 
rencia para el sistema COMMODORE €4. 

Si, por el contrario, deseamos cambiar los colores de la pági- 
na texto utilizaremos 


TEXTBG x 


7] 


que en “x” especifica el color deseado (según el contenido de la 
tabla 1). 


TEXTCOLOR x 


Indica el color de los caracteres estándar. 
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CODIGO COLOR 


ES Tabla 1.—Relación código-color para el Commodore 64, 
Examinemos lo que conseguimos cor. esta serie de instruc- 
ciones, ejecutadas de manera directa: 
HOME 
CLEARSCREEN 
TEXTBG 0 
colorea la página de texto de negro (tabla 1). 
BACKGROUND 2 
colorea la página de alta resolución en rojo. 
TEXTCOLOR 13 


da el color verde (en base a la tabla 1) a los caracteres estándar. 
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Archivar las imágenes 


Después de haber construido una figura surge el problema 
de poderla conservar sobre un soporte magnético. 

De esta tarea se ocupan tres comandos con funciones com- 
plementarias, que permiten todas las operaciones de “grabación”, 
“carga” y “cancelación”. 

Escribamos la siguiente secuencia de instrucciones, que cons- 
truyen el gráfico de ejemplo de los tres comandos antes men- 
cionados: 

SINGLECOLOR 
FULLSCREEN 

PENUP 

FORWARD 100 

LEFT 90 

FORWARD 16 + 100 
LEFT 180 
STAMFCHAR "S 
FORWARD 8 
STAMPCHAR "A 
FORWARD 8 
STAMPCHAR "V 
FORWARD 8 
STAMPCHAR "E 
RIGHT 90 

FORWARD 100 . 
RIGHT 90 
FORWARD 24 

LEFT 180 
STAMFCHAR "R 
FORWARD 8 
STAMPCHAR "E 
FORWARD 8 
STAMPCHAR "A 
FORWARD 8 
STAMPCHAR "D 
RIGHT 90 

FORWARD 100 
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RIGHT 90 
FORWARD 24 
LEFT 180 

de STAMPCHAR "E 
FORWARD 8 
STAMPCHAR "R 
FORWARD 8 
STAMFCHAR "A 
FORWARD 8 
STAMFCHAR "S 
FORWARD 8 
STAMFCHAR "E 
FORWARD 8 
PENDOWN 
LEFT 45 
FORWARD 142 
RIGHT 270 
FORWARD 142 
BACK 142 
RIGHT 135 
PENUP 
FORWARD 8 
STAMPCHAR "P 
FORWARD 8 
STAMPCHAR "1 
FORWARD 8 
STAMFCHAR "C 
FORWARD 8 
STAMPCHAR "T 
FORWARD 16 


En esta situación, para salvar sobre disco la página gráfica re- 
sultante (Fig. 6) escribimos: 


SAVEPICT "nombre 


Seguidamente, para recuperarla habría que escribir: 
READPICT “nombre 
22 


SAVE 


READ PICT 


ERASE 


1 ] Figura 6.—Página gráfica que vamos a grabar. 


En cambio, si se quiere borrar la página del disco: 


ERASEPICT “nombre 


Resumen de las instrucciones 


DRAW 
Para entrar en alta resolución. 


NODRAW 
Contrario de draw. 
TEXTSCREEN X 
Vídeo completo en modo texto. 
SPLITSCREEN 
Vídeo subdividido en alta resolución y en modo texto. 
FULLSCREEN 
Vídeo completamente en alta resolución. 
FORWARD x 
Avanza la tortuga “x” 
BACK x 
Retrasa la tortuga "x” posiciones. 
RIGHT x 
Gira a la derecha "x” grados la tortuga. 


LEFT x 
Gira a la izquierda "x” grados la tortuga. 


posiciones. 
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SETX x 

Sitúa la tortuga en la abscisa "x”. 
SETY-Z 

Sitúa la tortuga en la ordenada “y”. 
CLEARSCREEN 

Limpia el área gráfica. 
HOME 

Coloca la tortuga en la parte central de la pantalla. 
PENCOLOR x 

Da a la tortuga y a la pista dejadá por ella el color “x”. 
PENERASE 

Tras este mando la tortuga no escribe, sino que borra. 
BACKGROUND x 

Determina el color de la página gráfica. 
TEXTCOLOR x 

Da a los caracteres de la página texto el color deseado. 
TEXTBG x 

Parámetros del color para el área texto, 
PENUP 

Tras este comando la tortuga se desplaza sin escribir ni borrar. 
PENDOWN 

Lleva a cabo la función contraria a PENUP. 
HIDETURTLE 

Hace invisible la tortuga, pero no su pista. 
SHOWTURTLE 

Hace visible a la tortuga. 
STAMPCHAR "x 

Imprime en alta resolución los caracteres que siguen a las co- 

millas. 
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PROCEDIMIENTOS Y SUBPROCEDIMIENTOS 


n este capítulo hablaremos de una de las partes 
más importantes del lenguaje LOGO: los proce- 
dimientos, es decir, aquellas “palabras” que no- 
sotros mismos podemos definir y que nos per- 
miten usar un mismo grupo de instrucciones por 
medio de la sencilla mención de la palabra. 


Definición de nuevas palabras 


Supongamos que queremos dibujar un rectángulo como el de 
la figura 1. 


1] Figura 1.—Rectángulo a dibujar. 
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Con los medios actualmente a nuestra disposición no pode- 
mos hacer otra cosa que pulsar secuencialmente las instrucciones: 


FORWARD 50 

RIGHT 90 

FORWARD 100 

RIGHT 90 

FORWARD 50 

RIGHT 90 z 
FORWARD 100 


Nos vemos obligados a escribir todo esto ya que el LOGO no 
pone a nuestra disposición, dentro del vocabulario de los coman- 
dos fundamentales, una instrucción que trace automáticamente la 
figura geométrica requerida. De hecho, este vocabulario de co- 
mandos resulta estar exclusivamente constituido por sencillas, 
aunque importantes, palabras llamadas PRIMITIVAS, que son las 
ya conocidas: 


FORWARD, LEFT, RIGHT, PENCOLOR, etc. 


En este contexto resalta uno de los aspectos principales del 
lenguaje LOGO: el programador, consecuentemente a sus propias 
necesidades, puede DEFINIR un conjunto de NUEVAS INSTRUC- 
CIONES, llamadas técnicamente PROCEDIMIENTOS, que amplia- 
rán el básico y limitado vocabulario. 


PRIMITIVA 


PRIMITIVA 
PROCEDIMIENTO 


PRIMITIVA 


PRIMITIVA 


Figura 2.—El LOGO nos permite definir un procedimiento a partir 
de las primitivas adecuadas. ; 


Veamos en la práctica cómo construir una nueva instrucción 
que, al ser llamada, dibuje en la pantalla el rectángulo de la fi- 
gura 1, 
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Antes de todo vamos a decidir el nombre que le daremos; es 
aconsejable en esta fase tener presente cuatro buenas normas ge- 
nerales, aparentemente obvias, que en el aprendizaje resultarán 
de evidente utilidad y simplificarán mucho la comprensión de los 
programas: 


1. Preferir una etiqueta que ponga bien en evidencia y si es 
posible SINTETICE la función del Procedimiento. 

2. Buscar nombres SIMPLES y, por lo tanto, fáciles de recordar. 

3. Comprobar que el nombre elegido no se confunda con 
otros de los Procedimientos definidos anteriormente. 

4. El intérprete LOGO no permite, desde luego, que "bautice- 
mos” un procedimiento con el apelativo típico de una pri- 
mitiva o con el nombre de un Procedimiento ya presente 
en el vocabulario (por este motivo es imposible llamar un 
procedimiento "FORWARD” o “PENUP”). 


En el caso examinado por nosotros necesitamos un procedi- 
miento que trace un rectángulo; el nombre que se le puede dar 
y que contiene los susodichos requisitos podría ser "DIBUJAREC- 
TANGULO”. 

Lo hacemos por medio de la instrucción: 


TO DIBUJARECTANGULO 


En este momento podemos introducir secuencialmente las instruc- 
ciones que deseamos que se memoricen en relación a nuestro 
Procedimiento. 

Ahora, encontrándonos ya en el ambiente EDITOR, los coman- 
dos pulsados no se llevarán a cabo inmediatamente. Sólotse me- 
morizarán y se asignarán a la palabra que estamos definiendo; será 
después, cuando llamemos a nuestro Procedimiento, cuando esta 
secuencia de mandos se llevará a cabo automáticamente y de for- 
ma sucesiva sin tener que escribirla de nuevo por entero. 

Después de haber escrito el TO DIBUJARECTANGULO y acla- 
rado estos puntos, pulsemos: 


RIGHT 90 ¿TREALIZA UN GIRO DE 90 GRADOSI 
FORWARD 90 ¿AVANZA 90 FOSICIONESI 

LEFT 90 ¿[GIRO A LA IZQUIERDAI 

FORWARD 40 ¿TAVANZA EN ESA DIRECCION] 
LEFT 90 ¿LOTROS 90 GRADOS] 

FORWARD 90 ¿TLADO SUPERIORI 
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LEFT 96 ¡¿CULTIMO GIROJ 
FORWARD 40 ¿EULTIMO LADOJ 
END 


En el ejemplo podemos observar dos detalles importantes. 


e En la definición de un procedimiento cualquiera se permi- 
te realizar comentarios de cualquier tipo, a condición de 
que estén cerrados entre paréntesis cuadrados y precedi- 
dos por el signo ";' Da. 

e La última instrucción de un procedimiento debe ser nece- 
sariamente END; en el caso de que se omita, será el EDI- 
TOR quien se encargará de añadirla al final del listado. 


Pulsemos ahora, a la vez, las teclas 
<CTRL> y <C> 


para que el Procedimiento en cuestión se memorice y, por lo tan- 
to, entre en el vocabulario LOGO. 
En este punto la computadora contesta: 


PLEASE WATIT.. 
y en seguida, después, si todo ha sido introducido correctamente: 
DIBUJARECTANGULO DEFINED 


Hemos vuelto al modo indirecto, o sea, a un ambiente de progra- 
mación en el cual los mandos pulsados no se memorizan, sino que 
son llevados a cabo inmediatamente, al contrario de lo que pasa- 
ba en el EDITOR. 

Llamemos ahora el Procedimiento recién construido con 


RUN DIBUJARECTANGULO 


que reproduce en la pantalla el rectángulo de la figura 3. 


Figura 3.—Rectángulo obtenido con el procedimiento DIBUJAREC- 
TANGULO. 
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Ahora que hemos entendido la utilidad y las operaciones ne- 
cesarias en relación a la creación de un nuevo mando podemos, 
por analogía, discutir los subprocedimientos, es decir, los proce- 
dimientos que participan en la definición ulterior de nuevas ins- 
trucciones. 

Si, por ejemplo, queremos dibujar en la pantalla cuatro rec- 
tángulos colocados como en la figura 4, podremos definir un pro- 
cedimiento que llame cuatro veces el procedimiento "“DIBUJAREC- 
TANGULO” definido anteriormente y que, en este caso, toma la 
función de subprocedimiento. El diagrama de sintaxis es el mos- 
trado en la figura 5. 


| Figura 4.—Un procedimiento puede user de otros, a los que con- 
vierte en subprocedimientos, para sus fines. 


s 
k 


Por lo tanto podemos escribir 


TO CUATRO. RECTANGULOS 
DIBUJARECTANGULO ¿CFRIMEROJ 
DIBUJARECTANGULO ¿ [CSEGUNDOJ 
DIBUJARECTANGULO ¿E TERCEROJ 
DIBUJARECTANGULO ¿[CUARTOJ 

END 


y pulsando simultáneamente 
<CTRL> y <C> 
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PRIMITIVAS 


PROCEDIMIENTOS SUBPROCEDIMIENTOS 


Figura 5.—Gráfico de relación entre primitivas, subprocedimientos 
y procedimientos. 


memorizamos la nueva palabra-llave llamada "CUATRO.RECTAN- 
GULOS”. El procedimiento CUATRORECTANGULOS no explota 
completamente las capacidades del LOGO, en los capítulos que 
siguen veremos cómo existe una instrucción que nos puede evi- 
tar la repetición de instrucciones idénticas. 

Así, para conseguir lo que tenemos en la figura 4 será sufi- 
ciente escribir: 


RUN CUATRO RECTANGULOS 


Está claro que pudiendo definir a nuestro propio gusto instruccio- 
nes, el lenguaje LOGO permite una sensible flexibilidad en rela- 
ción a cada problema de programación. 

He aquí unos ejemplos, que pueden constituir para el lector 
interesado una válida ayuda, resumiendo lo aprendido hasta ahora. 


TO LOGO 


HOME ¿LLEVA LA TORTUGA AL CENTRO DE 
LA PANTALLAJ 
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CLEARSCREEN 3 CRORRA FOR COMFLETO TODA 
LA PANTALLAIJ 


¡ECOMIENZA EL PROGRAMA DE DISENO DE LA 
FALABRA LOGO1 

PENUF ¿[ALZA EL LAFIZ FARA QUE EL 
RECORRIDO DE LA TORTUGA NO SEA 


VISUALIZADOIJ 

LEFT 90 ¿GIRO DE 90 GRADOS.A LA 
IZQUIERDAI 

FORWARD 70 ¿LAVANZA HACIA ADELANTE 70 
POSICIONESI 


PENDOWN ¿[UNA VEZ SITUADA LA TORTUGA 
DONDE QUERIAMOS BAJAMOS EL LAPIZ 
PARA DIBUJAR SU RASTROJ 

FORWARD 40 ¿TDIBUJAMOS LA *L”1J 

RIGHT 90 ¿[GIRO A LA DERECHA DE 90] 

FORWARD 70 

RIGHT 90 

FORWARD 10 

RIGHT 90 

FORWARD 60 

LEFT 90 

FORWARD 30 

RIGHT 90 ; 

FORWARD 10 

PENUP ¿ACABADA LA *L* PREFARAMOS 
TODO PARA LA *0”, LEVANTANDO EL 
LAFIZ ANTES 

LEFT 90 

FORWARD 20 

LEFT 90 

O ¿ILLAMAMOS AL SUBFROCEDIMIENTO ”0”J 

PENDOWN : : 

FORWARD 40 ;¡TDIBUJAMOS LA *G*J 

LEFT 90 

FORWARD 20 
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LEET 90 

FORWARD 10 

LEBRT 90 

FORWARD 10 

RIGHT 90 

FORWARD 20 

RIGHT 90 

FORWARD 50 PE 

RIGHT 90 

FORWARD 30 

LEFT 90 

FORWARD 10 

LEFT 

FORWARD 40 

[Ab a a 

FORWARD 70 

LEFT 20 

PENUF ¿CLO FPREPARAMOS FARA LA 
SEGUNDA *0” 3 

FORWARD 60 

LREPAZO 

O ¡¿INUEVA LLAMADA AL SUBFROCEDIMIENTO 
201 


END 


FENDOWN ¡TEL FROCEDIMIENTO DIBUJA LA 
LETRA ?0? 1 

FORWARD 70 

RIGHT 90 

FORWARD 40 

RIGHT 90 

FORWARD 70 

RIGHT 90 

FORWARD 40 


PENUP ¡CLEVANTAMOS EL LAFIZ FARA 
SITUARNOS EN LA FARTE INETRIOR]J 

RIGHT 90 

FORWARD 10 

RIGHT 90 

FORWARD 10 

FENDOWN 

FORWARD 20 

LEET 99 

FORWARD 50 

LEFT 90 

FORWARD 20 

LEFT 90 

FORWARD 50 

PENUP ¡[FOSICIONA LA TORTUGA EN EL 
COMIENZO DE LA SIGUIENTE LETRAJ 

FORWARD 10 

LERT.20 

FORWARD 50 


01, 10 - 


Figura 6.—Resultado de la ejecución de un procedimiento que, a su 
vez, hace uso de subprocedimientos. 


END 


El editor 


Con este término técnico se indica aquella sección del len- 
guaje cuya función específica es la de permitir y ayudar al máxi- 
mo al usuario cuando éste escribe procedimientos, subprocedi- 
mientos y, por lo tanto, cualquier programa. 

En el momento de encender el ordenador se sitúa en modo 
directo o de comandos (COMMAND MODE); en él, si nosotros pul- 
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samos una instrucción correcta, ésta se llevará a cabo inmediata- 
mente en cuanto pulsemos la tecla RETURN. 
Por ejemplo, escribiendo: 


FORWARD 50 (y el necesario <RETURN>) 


veremos, después de unos momentos, cómo la tortuga se mueve 
en la pantalla 50 posiciones. 
Sin embargo, si pulsamos 


TO NOMBREPROCEDIMIENTO 
o bien 

EDIT NOMBREPROCEDIMIENTO 
o también 

EDIT ALL 


se entra en modo editor, es decir, podemos introducir y/o modi- 
ficar las secuencias de instrucciones relativas al procedimiento 
que deseemos. 

Cuando más tarde llamemos a este procedimiento, las instruc- 
ciones dadas serán llevadas a cabo en secuencia fielmente, como 
si nosotros las estuviéramos pulsando en el modo directo. 

Examinemos ahora cuáles son las opciones a disposición del 
programador LOGO en el caso de que haya entrado en ambiente 
EDITOR 

A la izquierda les ofrecemos una lista de las teclas a pulsar 
simultáneamente, y a la derecha se explica su función (para el 
CBM 64). 


CTRL y O Equivale a pulsar RETURN, se introduce una línea 
vacía en el texto del Programa y se llevan a nue- 
va línea todos los caracteres sucesivos al cursor. 


CTRL y N Pulsando simultáneamente estas dos teclas, el 
cursor se sitúa al inicio de la línea SUCESIVA con 
respecto a la que se encuentra. 


CTRLy P Efectúa la función contraria a la del comando an- 
terior, moviendo el cursor al inicio de la línea AN- 
TERIOR. , 

CTRL y L Coloca el cursor al final de la línea actual. 

CTRL y A Desplaza el cursor al extremo izquierdo de la pan- 


talla. 
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5 y F Lleva el cursor al final del programa. 

:TRL y B Mueve el cursor hasta el primer carácter del pro- 
grama. 

CTRL y D Se borra el carácter sobre el que está colocado 
el cursor. 


CTRL y K Borra todos los caracteres a la DERECHA del cur- 
sor. 


Finalmente, muy importantes, son las instrucciones: 


CTRL y € 
CTRL y G 


la primera define el procedimiento que se está llevando a cabo y 
las eventuales variaciones, mientras que la segunda da por aca- 
bada la fase de variación y/o modificación. Estos dos últimos co- 
mandos TRANSFIEREN DE NUEVO el control a la manera INME- 
DIATA. La figura 7 ilustra este concepto. 


Listado y borrado de procedimientos 


En los párrafos anteriores hemos hablado detalladamente de 
las operaciones necesarias para la definición y la modificación de 
un procedimiento y/o subprocedimiento. Sin embargo, muy a me- 
nudo pasa que, después de haber escrito un programa y haber 
comprobado sus resultados, nace la necesidad de visualizar ve- 
lozmente el listado correspondiente. 

Para hacer todo esto es fundamental poder tener a nuestta dis- 
posición el nombre de todos los procedimientos presentes hasta 
el momento en el vocabulario. La instrucción a la cual se confió 
este cometido es: 


POTS 


Si, por ejemplo, nuestro vocabulario está constituido por los pro- 
cedimientos "DIBUJARECTANGULO”, “CUATRO.RECTANGULOS” 
y "TRIANGULO”, pulsando POTS obtendremos en la pantalla: 


?POTS 

TO DIBUJARECTANGULO 
TO CUATRORECTANGULOS 
TO TRIANGULO 
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TO EDIT 


CTRL — G 


CTRL — C 


Figura 7.—Esquema del paso de modo directo a editor y viceversa, 
Los comandos son los del CBM64. 


Para conseguir el listado completo de un procedimiento ya 
escrito se usa el comando PO, cuya sintaxis es: 


PO NOMBREPROCEDIMIENTO 


Esta operación puede aparecer a simple vista igual que la ins- 
trucción TO NOMBREPROCEDIMIENTO, pero, en realidad, es muy 
distinta. 

De hecho, mientras TO permite la más o menos trabajosa mo- 
dificación del listado, ya que pasa el control de las operaciones 
al EDITOR, PO permite exclusivamente la visualización de ese 
listado. 

Si pulsamos ahora: 


PO ALL , 


aparecerá en la pantalla el listado de todos los procedimientos re- 
sidentes en memoria, que aparecen en el orden contrario con res- 
pecto al que se definieron. En otras palabras: la última palabra 
creada por el programador será la primera en ser listada. 

Es útil recordar que el “scroll” (desplazamiento) de la pantalla 
puede ser momentáneamente interrumpido pulsando a la vez 


CTRL y W 


y activado de nuevo con sólo pulsar una tecla cualquiera. 

Ahora que hemos examinado cómo INTRODUCIR, LISTAR y 
MODIFICAR un procedimiento, nos queda tomar en consideración 
la fase de anulación, parcial o total, del VOCABULARIO, 

Este cometido, desde luego muy importante (recordemos que 
anular un procedimiento significa ganar memoria), está confiado 
a la instrucción ERASE, cuya sintaxis es: 


ERASE NOMBREPROCEDIMIENTO 


Con ella eliminamos (y desaparece así del vocabulario) la pala- 
bra de la cual hemos especificado el nombre, a condición que no 
sea una primitiva. 


ERASE ALL 


borra TODOS los procedimientos residentes en memoria, llevan- 
do el vocabulario LOGO a las condiciones típicas que siguen a la 
puesta en marcha de nuestro ordenador. 


Grabar el vocabulario 


Cuando se han definido palabras nuevas de uso frecuente o 
que volveremos a usar es necesario poderlas almacenar para lue- 
go tenerlas a nuestra disposición en cualquier momento sin estar 
obligado a volverlas a escribir y verificar. 

El LOGO nos permite la memorización de los procedimientos 
en soporte magnético (de manera particular en disquetes 
—Floppy Disk— y en cinta) para crear un archivo personal de nue- 
vas instrucciones. 

Si queremos “salvar” un vocabulario (FICHERO) creado por 
nosotros deberemos usar el comando: 


X 


SAVE “NOMBREFICHERO 
Para averiguar si la grabación del fichero-vocabulario ha sido lle- 
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vada a cabo correctamente llamamos al directorio (directory) del 
disco pulsando la instrucción: 


CATALOG 


Veremos cómo aparece el nombre de nuestro fichero. 

Carguemos ahora en memoria el vocabulario salvado. 

Para estar seguros de que esta operación se realiza y no ser 
engañados por el hecho de que el vocabulario está ya en memo- 
ria, llevamos el ordenador a las condiciones iniciales (de encen- 
dido), de forma que esté sin ningún procedimiento predefinido: 


GOODBYE 
La máquina se inicializará. Llegados aquí utilizamos la instrucción 
READ “NOMBRE 


para que reaparezca el fichero-vocabulario anteriormente archi- 
vado. 

Para hacer más comprensible lo dicho hasta ahora hagamos 
un ejemplo práctico; consideremos un vocabulario constituido por 
los procedimientos DIBUJARECTANGULO y CUATRORECTAN- 
GULOS. 

Para grabarlo pulsaremos 


SAVE "PRIMER-VOCABULARIO” 

Para cargarlo: 

READ “PRIMER-VOCABULARIO” 

Es importante tener en cuenta dos cosas: 


1. Es posible salvar el vocabulario con un nombre distinto de 
los procedimientos en él contenidos, 

2. En el caso en que se cargue en memoria un segundo vo- 
cabulario, éste se junta al anterior sin modificarlo. Ahora 
bien, ¡cuidado con no cargar dos procedimientos que ten- 
gan el mismo nombre!, pues en ese caso se produciría la 
cancelación del último. 

Queda por discutir el borrado de las palabras salvadas sobre 

disco. Esta operación, llamada SCRATCH, está confiada al coman- 
do: 


ERASEFICHERO “NOMBRE 
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Programas resumen 
Programa 1 - Demostración 


El siguiente programa traza el gráfico de las operaciones rea- 
lizadas entre la memoria y el fichero en disco o casete siguientes: 


Definición procedimientos 
Salvar fichero 
Cargar ficheros en memoria 


Les recordamos que después de cada línea existe un <RE- 
TURN>. 


TO D 
¡CESTE FROCEDIMIENTO ESCRIBE LA LETRA 
"D? Y MUEVE LA TORTUGA 8 


FOSICIONESI 
STAMFCHAR "D 
FORWARD 8 

END 
TEME 


¡EESCRIBE LA *L”J3 
STAMPCHAR "L 
FORWARD 8 

END 


TO F 
SEESCRIBE LA FJ 
STAMPCHAR "F 
FORWARD 8 

END 


TO Y 
SrESCRIBE LA sv 
STAMPCHAR "VW 
FORWARD 8 

END 


39 


TURS 
¡TESCRIBE LA ?S” J 
STAMPCHAR "S 
FORWARD 8 

END 


TO A 
¡CESCRIBE LA *A”*1J 
STAMPCHAR "A 
FORWARD B 

END 


EL 
¡[ESCRIBE LA *1*J3 
STAMFCHAR "I 
FORWARD 8 

END 


TOR 
3 TESCRIBE LA *R”J 
STAMPCHAR "R 
FORWARD 8 

END 


TO O 
¡ CESCRIBE LA *0”J] 
STAMPCHAR "O 
FORWARD 8 

END 


TONE 
3CESCRIBE LA *E*J : 
STAMFCHAR "E 
FORWARD 8 

END 


TO M 
3 [ESCRIBE LA *M”1J 
STAMPCHAR "M 
FORWARD 8 

END 


TO READ 


¿CESCRIBE LA PALABRA *READ” 1 

RIGHT 90 

FORWARD 70 

LEFT"90 

BACK 130 

R ¿ELLAMA AL SUBFROCEDIMIENTO *R”I 
E 

A 

D 

FORWARD 20 


END 


TO FILE 


¿CESCRIBE LA FALABRA *FILE” J 
FORWARD 65 

RIGHT 90 

FORWARD 70 

LEFT 90 

F 


1 
L 
E 


END 


TO SAVE 


¿[ESCRIBE LA FALABRA *SAVE” 1 
LEFTO9O 

FORWARD 70 

RIGHT 90 

FORWARD 40 

Ss 


A 
V 
ES 
END 


TO MEMORIA 


p ¡TESCRIBE LA FALABRA *MEMORIA” 3 


FORWARD 30 
RIGHT 90 
FORWARD 205 
LEFT 180 
M 
E 
M 
0 
R 
1 
A 
END 


TO RECTANGULO 


¿CDIBUJA UN RECTANGULO1I ' 
RIGHT 90 

FORWARD 60 

LEFT 20 

FORWARD 60 
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LERT=520 
FORWARD 120 
CERFIDO 
FORWARD 60 
LERPESO 
FORWARD 60 


END 


TO DEMOSTRACION 


ILLAMA Y CONTROLA TODOS LOS 
SUBPROCEDIMIENTOS ANTERIORES 

HOME ¿ETORTUGA AL CENTRO DE LA 
PANTALLA 3 

CLEARSCREEN ¿CBORRA LA PANTALLA 

PENUP ¿CLEVANTA EL LAFIZ PARA NO 
MARCAR EL RECORRIDO] 

RIGHT 90 

FORWARD 80 

FENDOWN ¿ESITUADA LA TORTUGA VUELVE A 
MARCAR SU RASTROJ 

LEFT 90 

RECTANGULO ¿[LLAMA AL SUBPROCEDIMIENTO * 
” RECTANGULO” J 

RIGHT 90 

FORWARD 30 

RIGHT 90 

FORWARD 180 

RIGHT 90 

FORWARD 30 

RECTANGULO 

FENUP 

LEFT 90 

FORWARD 60 

FENDOWN 
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FORWARD 30 

RIGHT 90 

FORWARD 180 

RIGHT 90 

FORWARD -30 

FENUF 

MEMORIA ¿ELLAMADA AL SUBFROCEDIMIENTO 
"MEMORIA? 1 E 

SAVE ¿LLAMADA AL SUBPROCEDIMIENTO 
SAVE?” 1 

FILE ¿ELLAMADA AL SUBPROCEDIMIENTO 
PES 

READ ¿TLLAMADA AL SUBPROCEDIMIENTO 
*READ” 1 


END 


SAVE 


MEMORIA FILE 


READ 


1] Figura 8.—Resultado del programa DEMOSTRACION. 


Programa 2 - Hoja y 


El programa HOJA dibuja, como dice su nombre, una hoja. 

En un primer momento se crea un procedimiento que dibuja 
un rombo y éste es'llamado después repetidas veces, aunque con 
una única instrucción (REPEAT) que se verá posteriormente. 


de 


TO HOJA 


HOME ¿ETORTUGA AL CENTROJ 

CLEARSCREEN ¿[BORRA FANTALLAI 

FENUP ; LEVANTA LA PLUMILLAJ 

FORWARD 10 

PENDOWN ;EBAJA LA PLUMILLAJ 

ROTACION ¿ETLLAMADA AL SUBPROCEDIMIENTO 
”"ROTACION” 1 


END 


TO ROTACION 


REFEAT 7 TROMBOJ ¡[ESPERE A VER EL 
CAPITULO 51 

RIGHT 140 

FORWARD 50 

LEFT 40 

FORWARD 30 

RIGHT 220 

FORWARD 50 

LEFT 40 t 

FORWARD 30 


END 


TO ROMBO 


LEFT 150 
FORWARD 60 
LEFT 560 
FORWARD 40 
RIGHT 240 
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FORWARD 60 
LEFT 60 
FORWARD 60 


END 


"Figura 9.—Ejecución del programa HOJA. 


CONSTANTES, VARIABLES Y TABLAS 


“Make”y “Print” 


omo todo lenguaje evolucionado, el LOGO 
ofrece la posibilidad de tratar a nivel de pro- 
grama constantes y variables con relativa sim 
plicidad. Examinemos en detalle las palabras 
del lenguaje que desarrollan este aspecto ope- 
rativo. 

Hay que tener presente que al definir una 
constante o variable no podemos asignarle 
ninguno de los nombres característicos del 
LOGO (o sea primitivas y procedimientos). 

Además, es necesario recordar que el valor numérico atribul- 
ble a constantes o variables debe de estar necesariamente com- 
prendido entre un mínimo y un máximo, típicos de la máquina con 
la cual se trabaja. £ 

Una variable que en el transcurso del programa asume un va- 
lor no consentido genera la inmediata detención de la ejecución 
del procedimiento en curso y la impresión del mensaje 


NUMBER TOO BIG (o TOO SMALL) 


Consideremos ahora en la práctica el procedimiento necesa- 
rio para la definición de una constante, que en el ajemplo es lla- 
mada “CONS” y que debe asumir el valor numérico entero 150. 

Es suficiente pulsar 


MAKE “CONST 150 


La instrucción MAKE asigna a la palabra siguiente el valor es- 
pecificado; éste no tiene que ser necesariamente una constante, 
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ya que puede ser cómodamente sustituido con una expresión, 
como en el ejemplo siguiente: 


MAKE “ALFA (2+3%*5) 
O también: 
MAKE "BETA SIN (180) * COS (0) 


Otro aspecto fundamental de la instrucción MAKE es que per- 
mite también la creación de constantesy variables con argumen- 
to alfanumérico. 

La sintaxis a seguir en este caso es ligeramente diferente y 
se la puede sintetizar así: 


MAKE "NOMBRE “ARGUMENTO 


Queriendo asignar la frase “21.Enero.1986” a la constante “FE- 
CHA”, se escribe: 


MAKE “FECHA “21.ENERO 1986 


El programador menos experto debe de tener cuidado al 
utilizar la instrucción MAKE con una secuencia de instrucciones 
del tipo 


MAKE “ALFA 10 
MAKE “ALFA 20 


que llevaría, en primer lugar, a la asignación del valor numérico 
10 a la constante ALFA e, inmediatamente después, a la coloca- 
ción del valor 20 en la misma constante, con la obvia pérdida com- 
pleta de la información anterior (10). 

Es éste un ejemplo que, si bien inicialmente puede parecer 
simple y sin sentido, puede tal vez hacer perder tiempo en la co- 
rección de un programa incluso al usuario más experto. 

Paralelamente a la instrucción MAKE examinemos la primiti- 
va del lenguaje cuya función es prácticamente la opuesta, o sea, 
la de imprimir el valor del argumento y no la de asignar un valor 
a una variable o constante. 2 

La instrucción en cuestión es del tipo 


PRINT VALOR 
o también 
PRINT :¡NOMBREVARIABLE 
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Puede ser utilizada de modo directo o como programa. Probemos, 
por ¡o tanto, la pulsación de 


MAKE “FRASE "QUERIDO AMIGO 


PRINT FRASE 


se imprime, evidentemente: Querido amigo. 
Para imprimir mensajes directamente se usa la sintaxis 


PRINT [FRASE A IMPRIMIR] 

El usuario más experto se habrá dado cuenta seguramente 
del hecho de que si nosotros utilizamos repetidamente el coman- 
do PRINT, los distintos argumentos se imprimen sobre diferentes 


líneas de la pantalla. 
Pulse, por ejemplo, el procedimiento: 


TO IMPRIMEFRASE 

PRINT [ESTOY APRENDIENDO] 
FRINT [A UTILIZARA 

FPRINT [EL LOGOJ 

END 


Después de haberlo ejecutado, en la pantalla aparece un mer- 
saje en tres líneas del tipo: t 


ESTOY APRENDIENDO 
A UTILIZAR 
EL LOGO 


Si deseamos que nuestro mensaje se disponga sobre una sola 
línea, recurriremos a la primitiva PRINT1, del todo similar, por lo 
que concierne a la sintaxis, a la PRINT examinada anteriormente. 

Volvamos a escribir, por lo tanto, nuestro procedimiento como 
abajo se indica: ; 

TO IMPRIMEFRASE 
PRINTi [ESTOY APRENDIENDO] 
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PRINTi CA UTILIZARI 
PRINTi [EL LOGOJ 


END 


La impresión sobre pantalla es, como nos esperamos: 


ESTOY APRENDIENDO A UTILIZAR EL LOGO 


o 


Variables locales: LOCAL 


Concluidc el tema sobre MAKE y PRINT, las fundamentales 
instrucciones de manipulación de las variables numéricas y alfa- 
numéricas, bajemos a detalles técnicos y examinemos la utiliza- 
ción de una nueva primitiva (LOCAL) que reviste también una ta- 
rea de particular interés. 

Muy frecuentemente ocurre que un subprocedimiento traba- 
ja sobre una o más variables utilizadas por el programa principal 
y cuyo valor no debe de ser alterado; es, por lo tanto, indispensa- 
ble que al final de la ejecución del procedimiento la variable en 
cuestión reasuma el valor que tenía en el momento del requeri- 
miento. 

El lenguaje LOGO resuelve con extrema simplicidad este pro- 
blema a través de la instrucción: 


LOCAL "NOMBREVARIABLE 


Para entender a fondo la función de esta primitiva examine- 
mos el siguiente programa: 


TO SUBFROCEDIMIENTO 
LOCAL "ALFA 

MAKE "ALFA 6 

FRINT ¡ALFA 


END , 


TO FROGRAMAFRINCIFAL 


MAKE "ALFA 5 


SUBFROCEDIMIENTO 


PRINT :ALFA 


END 


Le vamos a ejecutar con el acostumbrado 


RUN PROGRAMAPRINCIPAL 


Los pasos que se irán desarrollando serán entonces: 


1 


3. 


. MAKE da el valor 5 a ALFA. 
2. 


Se llama al subprocedimiento llamado SUBPROCEDIMIEN- 
TO. 

La instrucción LOCAL indica que nuestro subprocedimien- 
to trabajará con la variable ALFA utilizada por el programe 
principal y que, por lo tanto, al final de la ejecución del sub- 
procedimiento deberá retomar automáticamente el valor 
original (que es 5). 


. El subprocedimiento está en acción: alfa ahora vale 6 


(MAKE “ALFA 6). 


. Se imprime el valor correspondiente (6). 
. Se vuelve al programa principal: el valor de ALFA se pone 


automáticamente en 5. 


. Una vez impreso ALFA el programa termina. 


“REQUEST” y “READCHARACTER” 


Al introducir en un prograrna la instrucción “REQUEST"se para 
momentáneamente su ejecución hasta que el operador pulse la te- 
cla "RETURN", 

La función de esta primitiva es pedir al usuario una informa- 
ción que luego será utilizada por el programa; si queremos definir 
un procedimiento que pregunte un número y que imprima su cua- 
drado, pulsaremos 


TO CUADRADO 


MAKE "X REQUEST ¿[X = TECLAS ANTES DEL RETURNI 


PRINTi [EL CUADRADO ES: 1 


PRINT :X * :X 


END 
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Activamos el procedimiento con RUN CUADRADO, pulsamos 
un ocho y "RETURN; la contestación será: 


EL CUADRADO ES 64 

Al contrario de la primitiva "REQUEST, la instrucción 'READ- 
CHARACTER" espera un solo dato de entrada; el programa se para 
hasta que no pulsemos una tecla cualquiera. 

El ejemplo puede sugerir al lector una de las distintas mane- 
ras de utilización de esta primitiva. El breve programa, llamado 
COMANDOS.DIRECTOS, presentado más abajo, permite dibujar en 
la pantalla presionando las teclas "A"=adelante, “B"=back, atrás, 
"D"=gira a la derecha, "!” gira a la izquierda, "F"=final de proce- 
dimiento. 

Por lo que se refiere al uso de la instrucción IF.THEN (utili- 


zada en el programa) se aconseja al lector esperar a leer el capí- 
tulo 4, 


TO COMANDOS. DIRECTOS 

HOME ¿CTORTUGA A LA POSICION INICIALI 
CLEARSCREEN 5 EBORRAMOS LA FANTALLAJ 
FRINT [PULSAR A, B, D, 1 ( F = FINAL ) J 
GETCARACTER 3 ESUBFROCEDIMIENTO PARA 
REALIZAR LA LECTURA DE LOS COMANDOS 


END 


TO GETCARACTER 
MAKE "TECLAFULSADA READCHARACTER 
M3 : TECLAPULSADA = "F THEN NODRAW 
FRINTEI PRINT [1 PRINT CFINI STOF 
IF ¿TECLAPULSADA = "A THEN PRINT 
CADELANTEJ] FORWARD 10 
IF. + TECLAPULSADA = "B THEN PRINT CATRASI 
BACK 10 


IF ¿TECLAFULSADA = "D THEN FPRINT [DERECHAIJ 
RIGHT 15 

IF :¿TECLAFULSADA = "1 THEN PRINT 
CIZQUIERDAJ LEFT 15 

GET 


END 


Procedimientos con variables 


Ya que hemos entendido cómo se pueden utilizar las varia- 
bles, examinamos ahora cuáles son las técnicas que permiten uti- 
lizarlas en un programa completo. 

Hasta ahora hemos tomado siempre en consideración la utili- 
zación de primitivas gráficas con constantes, como FORWARD 10, 
LEFT 50, PENCOLOR 1, etc. 

El LOGO permite asignar a una primitiva valores VARIABLES 
a condición de que el nombre de la variable en cuestión esté pre- 
cedido por "”. 

Haciendo referencia al ejemplo mencionado antes obtendre- 
mos, por tanto: 


FORWARD :X, LEFT :Y, PENCOLOR :Z.. 


donde las variables "X”, “Y”, "Z” valen, respectivamente (MAKE) 10, 
50 y 1. 

Están permitidas, además, secuencias de instrucciones del 
tipo: 


MAKE “ALFA 10 MAKE “BETA 40 
PRINT :ALFA - :BETA 


Tenga muy en cuenta que si en una expresión figura el nom- 
bre de una variable, hay que poner necesariamente delante de 
ella el símbolo : 

Se intuye fácilmente la gran eficacia operativa de un funcio- 
namiento tal. 

Por ejemplo, si queremos dibujar N figuras similares, pero de 
diferentes dimensiones, sólo debemos definir un único procedi- 
miento, capaz de trabajar sobre PARAMETROS VARIABLES (AL- 
TURA, LADO); después será suficiente volverlo a llamar N veces 


53 


pasándole los valores dimensionales apropiados para conseguir 
los N dibujos deseados. 
Por ejemplo, definamos un procedimiento que nos permita di- 
bujar fácilmente un rectángulo con las dimensiones deseadas: 
TO RECTANGULO ¿BASE : ALTURA 
HOME ¡[CENTRA LA TORTUGA1 
CLEARSCREEN ¿LIMPIA LA PANTALLAJ 
FORWARD ALTURA ¿LADO IZQUIERDOJ 
RIGHT 90 ¿[GIRA A LA DERECHA] 
FORWARD ¿BASE ¿[BASE SUPERIORI 
RIGHT 90 ¿[NUEVO GIROJ 
FORWARD ALTURA ¿[LADO DERECHO] 
RIGHT 90 
FORWARD ¿BASE ;[BASEJ 
RIGHT 90 ¿[TORTUGA EN LA POSICION INICIAL] 
END 


Ahora lo llamamos dándole como entradas (INPUT) los datos 
necesarios para llevar a cabo su cometido. 
Por ejemplo, escribamos: RUN RECTANGULO 40 90 (fig. 1a). 
RUN RECTANGULO 90 40 


O finalmente, para conseguir un cuadrado mediante un rectángulo 
con altura y base iguales, RUN RECTANGULO 90 90 (Fig. 1d). 

Tomemos en consideración ahora la utilización de las varia- 
bles en un subprocedimiento. 

El programa presentado como ejemplo (TRESRECTANGU- 
LOS) llama tres veces el subprocedimiento RECTANGULO ante- 
riormente definido, proporcionándole las dimensiones de la base 
y de la altura. 


TO TRES. RECTANGULOS 
RECTANGULO :*BASE :ALTURA 
RIGHT 120 
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b) 


40x 90 


100 x 60 


c) 


d) 


“o 


BES TANGULO con diversos valores. 


RECTANGULO ¿BASE : ALTURA 
RIGHT 120 
RECTANGULO ¿BASE : ALTURA 
RIGHT 120 


END 


3 Figura 1.—Distintos resultados de ejecutar el procedimiento REC- 
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y Figura 2.—Resultado del procedimiento TRES.RECTANGULOS. 


La imagen dibujada por el susodicho programa está reproducida 
en la figura 2. 


La instrucción “OUTPUT” 


La función del comando "OUTPUT” se desarrolla únicamente 
en modo programación (no es lícito utilizarlo de manera directa); 
devuelve un valor desde el procedimiento que lo ha utilizado. 

La sintaxis de esta instrucción es la siguiente: 

OU'TPUT CONSTANTE 

O también 

OUTPUT :VARIABLE 

Si llevamos a cabo la ejecución del procedimiento: 

TO EJEMPLO 
OUTFUT 10 
END 
con RUN EJEMPLO, en la pantalla aparecerá el mensaje: 
RESULT : 10 


Esto es porque la instrucción “OUTPUT” fuerza el valor espe- 
cificado (10) desde el procedimiento que le ha utilizado. 
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Una manera de utilizar la instrucción OUTPUT podría ser la si- 
guiente: 


TO CALCULA. TANGENTE. DE : ARGUMENTO 
OUTPUT (SIN (3: ARGUMENTO) /COS (: ARGUMENTO) ) 


END 
Llevemos a cabo el procedimiento con: 
RUN CALCULA. TANGENTE.DE 130 
y la computadora contestará con 
RESULT : -1.1918 


En los ejemplos anteriores hemos visto cómo el LOGO impri- 
me en la pantaila el valor derivado de la llamada a un procedi- 
miento que utiliza la instrucción OUTPUT. 

Es posible realizar el proceso de manera que el valor gene- 
rado por OUTPUT no sea impreso pero sí empleado como argu- 
mento de ulteriores primitivas o procedimientos, como resulta en 
el ejemplo que sigue. Pulsando de manera directa 


FORWARD 50 * CALCULA.TANGENTE.DE 140 


la tortuga se desplazará hacia delante un número de posiciones 
igual a 


12=50 * (tangente de 140) t 


En el capítulo 4 veremos de cuánta potencia operativa resul- 
ta ser la instrucción OUTPUT si se introduce en programas que uti- 
lizan técnicas recurrentes. 


Tratamiento de las listas y tablas 


Una considerable parte del lenguaje LOGO está orientada a 
permitir al programador un dominio eficaz y sencillo de las listas 
o tablas. Examinemos detalladamente este importante aspecto del 
LOGO para estudiar después sus posibles aplicaciones. 

Es oportuno aclarar, ante todo, el concepto de lista o tabla: con 
este término se indica un conjunto de elementos que se pueden 
expresar de forma tabular. En el interior de una pareja de parén- 
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tesis cuadrados (la posición que ocupa un elemento en el ámbito 
de una tabla debe de ser contada a partir del extremo izquierdo 
de la lista). 

Por ejemplo, si se quiere asignar al listado “ALFA” el conjunto 
de los elementos 1,A,3F escribiremos: 


MAKE "ALFA (1 A 3F) 


Por conjunto de elementos se entiende, por tanto, una colec- 
ción, un grupo de números y/o palabras, constantes y/o variables. 

Es importante subrayar que un listado está vacío (()) si no con- 
tiene elementos o, mejor dicho, contiene exclusivamente el ele- 
mento nulo, propiamente llamado CERO. 

Para definir un listado vacío, la instrucción necesaria es del 
tipo: 


MAKE "NOMBRELISTA () 


Examinemos una por una las primitivas dedicadas al trata- 
miento de los listados. 


[...] = [...] 


El operador *=" confronta el contenido de la primera lista con 
el de la segunda, entendiendo por contenido el conjunto de los ele- 
mentos de cada uno en su orden respectivo. En otros términos, el 
listado [a b c] es distinto [o no igual] del listado (c a b): aunque 
contengan los mismos elementos los dos están caracterizados por 
un orden distinto de tabulación. 

Si nosotros pulsamos de manera directa: 


[ALFA BETA GAMMA]=[ALFA BETA GAMMA] 
la computadora contestará: 
RESULT : TRUE 


TRUE (=es verdad) confirma la veracidad de la igualdad. 
Si, por el contrario, escribimos 


[ALFA BETA GAMMA]=[EPSILON GAMMA] : 
la contestación que debemos esperar será: 

RESULT : FALSE 
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ya que la igualdad, como claramente pone en evidencia el térmi- 
no inglés, es falsa. 

El operador *=" puede ser empleado en la comparación de lis- 
tas y para testimoniar la igualdad entre dos variables o entre una 
constante y una vanable. 

Es lícito escribir, por ejemplo, comandos del tipo: 


PRINT 4 =2*2 
o también 
MAKE “X 2 PRINT 4 =:X* :X +1 
que dan como resultados TRUE y FALSE, respectivamente. 


Por lo que se refiere a los operadores “menor”, “mayor” y "dis- 
tinto” valen las consideraciones usadas en relación a la primi- 
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tiva '= 


SENTENCE argumento 1 argumento 2 

Esta instrucción sirve para unir, en una lista única, los conte- 
nidos de las listas especificadas (argumento 1 + argumento 2). 

Por ejemplo: 

PRINT SENTENCE [HASTA PRONTO] [QUERIDO AMIGO] 
determina la impresión de "HASTA PRONTO QUERIDO AMIGO”. 

Como el operador "=" también la primitiva SENTENCE puede 
trabajar con listas y con constantes o variables numéricas, alfanu- 
méricas o alfabéticas. 

Así están permitidas instrucciones del tipo: 

SENTENCE "ADIOS [QUERIDO AMIGO] 
(constante alfabética+listado=lista) o 

SENTENCE :¡NOMBRE [LISTA ELEMENTOS] 
(variable alfanumérica+listado=lista) o también: 


SENTENCE 14 “Es un número par 


(constante numérica+ constante alfanumérica=lista). 
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FIRST argumento 


El argumento de esta primitiva puede ser indiferentemente 
una lista, una variable o una constante, 

La instrucción FIRST devuelve el primer elemento del argu- 
mento Por ejemplo: 


PRINT FIRST [ABC DEF CHI] 


imprime en la pantalla “ABC” 
Y también -. 


PRINT FIRST "nos vemos 


determinará la letra "n”. 

Tenga en cuenta que cualquiera que sea el argumento de 
FIRST (un número, una variable o una lista) esta primitiva cenera 
como salida siempre una lista. 

Haciendo referencias a los ejemplos anteriores podemos es- 
tar seguros que “ABC” y "N” son dos listas. Si planteamos, por lo 
tanto, las siguientes igualdades: 


[ABC]=FIRST [ABC DEF GHI] 
[A]=FIRST "NOS VEMOS 


tendremos con seguridad dos condiciones “TRUE”. 

Hay que tener presente, en la fase de programación, que si 
el argumento de la primitiva FIRST es nulo (first [], first”) se gene- 
rará un error, con la consecuente interrupción del procedimiento 
que se estaba llevando a cabo. 


LAST argumento 


Esta instrucción desarrolla la función opuesta al mando FIRST: 
devuelve el último de los elementos que constituyen el argumen- 
to, que puede ser de nuevo, indiferentemente, una lista, una va- 
riable (numérica, alfanumérica o alfabética), o una constante (nu- 
mérica, alfanumérica o alfabética). 

Utilizando los ejemplos usados anteriormente para aclarar el 
concepto de la primitiva FIRST, podemos ahora escribir: 


PRINT LAST [ABC DEF GHI] ; 
o también 
PRINT LAST “NOS VEMOS 
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La computadora contestará respectivamente : "CHI" y “S”/ 

También para la primitiva LAST valen las observaciones he- 
chas anteriormente al examinar el comando “FIRST”: de cualquier 
tipo (lista, variable..) que sea el argumento, ejecutando esta pri- 
mitiva tendremos siempre como resultado una lista. 

BUTFIRST argumento 

1] 

BUTFIRST, término que puede ser traducido al español con la 
expresión “excepto el primero”, genera como salida un valor igual 
al argumento, pero sir su primer elemento. 

Pulsando de manera directa: 


[ABC 123]=BUTFIRST [DEF ABC 123] 


[MIGO] =BUTFIRS7 “AMIGO 
tendremos como resultado dos contestaciones del lipo: 


RESULT : TRUE 


BUTLAST argumento 

Lleva a cabo la función contraria a la primitiva BUTFIRST. 

Recurriendo a la instrucción BUTLAST (=excepto el último) se 
genera como salida un valor igual al argumento, pero sin su pri- 
mer elemento. 

Para tener un ejemplo de lo dicho anteriormente pulsemos 

PRINT BUTLAST [12BC 34] 
y también 

PRINT BUTLAST “QUERIDISIMO 
y tendremos, respectivamente, la impresión de "1 2BC 3” y “QUE- 
RIDISIMO”. 

LIST argumento 1 argumento 2 


Esta es una instrucción básica dedicada al tratamiento de las 
listas. : 
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Requiere como entrada dos argumentos; la salida estará cons- 
tituida por una nueva lista que contendrá en sucesión los dos ar- 
gumentos. Veamos un ejemplo que aclare este concepto. 

Pulsemos de manera directa 


LIST [A B] [C D] 
La computadora contestará con: 
RESULT : [[A B] [C DJ] 


ho 

O sea, con una lista derivada de la unión de los dos argumentos; 
ha sido generada una "lista de dos listas”. 

De hecho [|A B] [C D]] está formada por los listados [A B] y 
[C D] a su vez constituidos por elementos (a, b) y (c, d). 

Para entender a fondo la sustancial diferencia existente entre 
la instrucción LIST y la aparentemente igual SENTENCE observe 
atentamente el ejemplo que sigue: 


PRINT FIRST SENTENCE [A B] [C D] 
genera 

RESULT: A 

PRINT FIRST LIST [A B] [C D] 
imprime 

RESULT : [A B] 


Como se ha dicho para otras primitivas de manipulación de 
listas, la instrucción LIST admite también argumentos numéricos 
(ejemplo: LIST 123 456 - [123] [456]) o variables. 


FPUT argumento 1 argumento 2 

Esta instrucción exige que el argumento 2 sea necesariamen- 
te una lista. 

Antes hemos observado cómo la lista generada por la primi- 
tiva LIST está constituida por el conjunto de los dos argumentos. 
La función confiada a la instracción FPUT es, sin duda, aparente- 
mente similar, pero al examinarla menos superficialmente resulta 
notablemente distinta. 
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Escribamos de manera directa: 
LIST [AB C][DEF] 
y tendremos 
RESULT : [[A BC] [DE FJ] 
Si pulsamos 
FPUT[A BC] [DEF] 
obtendremos la impresión de 
RESULT : [[A BC]DEF] 


es fácil entender que mientras la primitiva LIST crea una lista con 
dos elementos (que a su vez son listados), la primitiva FPUT de- 
vuelve como salida una nueva lista cuyo primer elemento es el 
ARGUMENTO 1, mientras los restantes miembros son los mismos 
que constituyen el ARGUMENTO 2. 

Haciendo referencia al ejemplo de que hemos hablado ante- 
riormente podremos ahora comprender por qué 


PRINT LAST LIST [ABC] [DEF] 
dará el mensaje RESULT: [D E F] 
mientras que las instrucciones” 
PRINT LAST FPUT [A B C][DEF] t 


dan origen a la lista [F]. 


LPUT argumento 1 argumento 2 


El argumento 1 debe ser necesariamente una lista. 

Esta primitiva proporciona como salida una lista constituida 
por los elementos que forman el ARGUMENTO 1 y que tiene como 
último miembro al propio ARGUMENTO 2. 

Intentemos utilizar esta instrucción: 


PRINT LPUT [1 2 3] [56 7] 
PRINT LAST LPUT [1 2 3] [5 6 7] 
PRINT FIRST LPUT [1 2 3] [5 6 7] 
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obtendremos, respectivamente, las impresiones: 


(123[567]] 
go 


Comandos de comprobación 


La primitiva LIST? controla que el argumento sea de hecho 
una lista; en caso afirmativo devuelve el mensaje TRUE y en caso 
contrario FALSE (falso, el argumento no es una lista). 

Tendremos, por lo tanto: 


LIST? [a b c] > RESULT : TRUE 
LIST? “frase — RESULT : FALSE 
LIST? 134 > RESULT : FALSE 


Análoga es la función confiada a la primitiva WORD?: com- 
prueba que el argumento es una variable; en ese caso la salida 
es TRUE, y si es lo contrario devuelve el mensaje FALSE. 

En correspondencia con el ejemplo anterior obtendremos: 


WORD? [a b c] > RESULT : FALSO 
WORD? "frase — RESULT : TRUE 
WORD? 123 > RESULT : TRUE 


Examinemos finalmente la primitiva EMPTY? La sintaxis ge- 
neral es: 


PRINT EMPTY? :¿NOMBRELISTA 
o también 
PRINT EMPTY? ¿¡NOMBREVARIABLE 


Esta instrucción examina el contenido del argumento: si es 
nulo genera el mensaje TRUE, y si no, devuelve el valor FALSE. 


Programa resumen 


Seguidamente les presentamos un listado del programa 
REPLAY, que ilustra las posibles aplicaciones en la programación 
de las listas. 
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El programa trabaja en alta resolución; permite inicialmente 
al operador desplazarse a través de la presión de las teclas “A” 
(=adelante), “B" (=atrás), 'T" (=giro a la izquierda) y “D” (=giro a la 
derecha) con lo cual la tortuga va dejando una pista en la pantalla. 

Esta es la fase que se podría definir como “pasiva” del pro- 
grama: éste memoriza en una lista todos los desplazamientos or- 
denados por el usuario. 

Cuando hayamos dibujado todo lo que nos habíamos pro- 
puesto pulsemos la tecla “R” (replay) para poner en marcha la se- 
gunda parte del programa: se cancela la página gráfica y la tortu- 
ga, por sí sola, lleva a cabo la misma figura anteriormente trazada 
por nosotros. 

Esto ha sido posible gracias a la gran potencia del lenguaje: 
ha sido suficiente volver a llevar a cabo (RUN) una a una todas 
las informaciones de nuestros desplazamientos que anteriormen- 
te habían sido memorizados en una lista. 

El listado del programa es el siguiente (los números de línea 
que aparecen se han puesto simplemente a efectos de facilitar la 
posterior explicación; por lo tanto NO deben editarse); 


01 TO REPLAY 
02 MAKE LISTA.COMANDOS [J] ¿CBORRA LA 
LISTA QUE CONTENDRA TODOS NUESTROS 
MOVIMIENTOSI 
03 HOME ¿[CENTRA LA TORTUGAJ 
04 CLEARSCREEN ¿ELIMPIA LA PANTALLA] E 
OS PRINT [PULSAR A, B, D, 1 (F = FINAL ) 
O BIEN R (REPLAY) 1 
06 GET 
07 END 
08 TO GET 
09 MAKE "TECLAPULSADA READCHARACTER 
10 IF :¿TECLAPULSADA = "R THEN HOME 
CLEARSCREEN EJECUTA. LISTA. COMANDOS 
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NODRAW FRINT [RETORNOJI STOP 

ii IF TECLAFULSADA = "A THEN FPRINT 
CADELANTEJ] FORWARD 10 
MAKE "LISTA. COMANDOS SENTENCE 
¿LISTA. COMANDOS [FORWARD 10] 

12 IF TECLAFULSADA = "B THEN FRINT 
[ATRASI BACK 10 
MAKE "LISTA. COMANDOS SENTENCE 
¿LISTA. COMANDOS [BACK 10] 

13 IF TECLAFULSADA = "D THEN PRINT 
[DERECHA RIGHT 15 : 
MAKE "LISTA.COMANDOS SENTENCE 
¿LISTA. COMANDOS [RIGHT 151] 

14 IF TECLAFULSADA = "I THEN PRINT 
CIZQUIERDA1 LEFT 15 
MAKE "LISTA. COMANDOS SENTENCE 
¿LISTA.COMANDOS [LEFT 151 

159 (GEL 

16 END 

17 TO EJECUTA.LISTA. COMANDOS 

18 RUN SENTENCE FIRST :*LISTA. COMANDOS 
FIRST BUTFIRST :LISTA, COMANDOS 

19 MAKE "LIST.COMANDOS  BUTFIRST ' 
BUTFIRST :LISTA. COMANDOS 


20 IF ¿LISTA.COMANDOS = [1] THEN REPLAY 


21 EJECUTA.LISTA. COMANDOS 


22 END 


Intentemos entender a fondo el funcionamiento del programa 
REPLAY que proporciona un anticipado y breve análisis, por lo 
que se refiere a la utilización de la primitiva IF, de la que habla- 
remos con más profundidad en el próximo capítulo. 


e LINEAS 01, 02, 03 y 04 
Autoexplicativas. 


e LINEA 05 
Imprime en la pantalla el mensaje que advierte al usuario cuá- 
les son las teclas para el movimiento y en qué dirección ge- 
neran el desplazamiento de la tortuga. 


e LINEA 06 
Salto incondicionado al subprocedimiento GET que empieza 
(TO GET) en la línea 08. 


e LINEA 09 
La instrucción READCHARACTER detiene la ejecución del 
programa hasta que el operador pulse una tecla. 
La primitiva MAKE asigna al argumento la letra correspon- 
diente al desplazamiento deseado. 
Supongamos ahora que nuestra elección haya sico la D (giro 
a la derecha). 
El programa lleva a cabo los tests de las líneas 10, 11, 12, pero 
los encontrarán tocos falsos. Llega, por lo tanto, a la línea 13, 
que realiza el giro hacia la derecha. 
El IF comprueba que la tecla pulsada por nosotros es, efecti- 
vamente, *D”. Se imprime, por lo tanto, el mensaje (DERECHA) 
y después la tortuca gira 15 grados a la derecha (RIGHT 15). 
Én esta fase del procedimiento GET nuestro movimiento se 
memoriza en la lista: esta función está confiada a las instruc- 
ciones: 


MAKE "LISTACOMANDOS SENTENCE :LISTACOMANDOS 
[RIGHT 15] 


En cuanto se hayan llevado a cabo las instrucciones que si- 
guen al IF se vuelve a la ejecución normal del programa: la 
línea 14 se lleva a cabo; como el test es falso (nuestra elec- 
ción es "D” y no 'T”) se pasa a la línea 15. 

En este momento vuelve a aparecer el procedimiento GET y 
el ciclo se repite. Para las líneas 11, 12, 14 valen las mismas 
observaciones realizadas para la línea 13. 
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Si en un cierto punto el usuario pulsa la tecla "R” (REPLAY) 
el test de la línea 10 toma el valor TRUE y las instrucciones 
siguientes, por lo tanto, sí se efectúan. Se centra la tortuga y 
se limpia la página de alta resolución. Después se ejecuta el 
subprocedimiento EJECUTA.LISTA.COMANDOS, cuyo inicio 
está en la línea 17. 

Supongamos que en el momento de esta llamada el :LIS- 
TA.COMANDOS tiene el valor: 


[RIGHT 15 FORWARD 10 LEFT 15 FORWARD 10 RIGHT 15] 
Mo 

e LINEA 18 
La instrucción RUN ejecuta el comando presente en el argu- 
mento. 
Pero este argumento nc es otra cosa que el conjunto (SEN- 
TENCE) de los primeros dos elementos del listado en el su- 
puesto (RIGHT 15), obtenidos con SENTENCE de FIRST y 
FIRST BUTFIRST, que indican cuál había sido nuestro primer 
desplazamiento. 

e LINEA 19 
De la lista de los desplazamientos se elimina la codificación 
de la primera instrucción (se le quitan los primeros dos ele- 
mentos). 

e LINEA 20 
Si LISTA.CCOMANDOS ha sido llevado a cabo de manera com- 
pleta, el programa REPLAY empieza de nuevo. 

e LINEA 21 
En caso contrario se efectúa la ejecución del desplazamiento 
siguiente. 
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BUCLES, COMPARACIONES Y RECURSIVIDAD 


n el segundo y tercer capítulos hemos visto 
cómo el intérprete LOGO permite la repetida 
ejecución de grupos específicos de instruccio- 
nes. 

Cuando necesitamos que un conjunto de 
mandos sea ejecutado un número "N” de veces 
podríamos resolver el problema (muy poco ele- 
gantemente) a través de la sucesiva definición 
de procedimientos. 

Sin embargo, con el LOGO tenemos la posibilidad de crear 
macro-instrucciones que lleven a cabo una función un determina- 
do número de veces que nosotros especificamos a priori en el mo- 
mento de diseñar el programa. 

Muy a menudo es también necesario puder llarnar a coman- 
dos particulares un número de veces variable según los casos. En 
este capítulo podremos constatar y estudiar cómo el intérprete 
LOGO nos permite resolver con sencillez y potencia el problema 
que tratamos. 

En la segunda parte del capítulo se examinarán las principa- 
les primitivas que nos permiten tomar decisiones, mientras la úl- 
tima parte la hemos reservado para una fabulosa herramienta, que 
permite obtener resultados importantes y que se conoce con el 
nombre de recursividad. 


La instrucción “REPEAT” 


Escribamos el programa listado más abajo: ordenando su eje- * 
cución nos pide que especifiquemos cuál es el carácter que que- 
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remos imprimir en la pantalla y el número de veces que desea- 
mos que se repita la fase de impresión: 


TO INFUTNUMERO 


PRINT [ESCRIBE CUANTAS VECES] 
PRINT [1 


FRINT [DEBO REFETIR LA ACCIONI 
PRINT [1 

FRINT [DE IMFRESIONI e 
PRINT CJ 

FPRINT [Y LUEGO FULSA <RETURN>J 
PRINT [1 

MAKE "NUMERO REQUEST 

OUTPUT FIRST : NUMERO 


END 


TO INFUTCARACTER 


PRINT [FULSA EL CARACTERI 
PRINT CJ] 

PRINT [A IMPRIMIRI 

MAKE "CARACTER READCHARACTER 
FRINT [3 

PRINT :CARACTER 

FRINT [1 


END 


TO PROGRAMA. REFETIR 


MAKE "CARACTER 

INFUTCARACTER 

MAKE "CICLOS INPUTNLUMERO 

REFEAT ¿CICLOS [FRINTi1 :CARACTERI 
PRINT [1 


END 
10 


El funcionamiento del programa debería estar claro, excepto 
el recurso, en la antepenúltima línea, a la instrucción: 


REPEAT :CICLOS [PRINT 1 :CARACTER] 


La primitiva REPEAT efectúa un grupo de instrucciones (Pro 
y/o primitivas) el número de veces especificadas por 


“he hecho, la sintaxis necesaria para la utilización de la ins- 
trucción REPEAT requiere: 


1. Un número colocado inmediatamente después de la pala- 
bra clave (en el ejemplo es la variable numérica :CICLOS) 
que especifica el número de veces que deberán repetirse 
las instrucciones siguientes. 

2. Una o más instrucciones, siempre cerradas entre una pare- 
ja de paréntesis cuadrados. 


En otras palabras, podemos repetir la ejecución de unos sub- 
procedimientos, unas sencillas primitivas como FORWARD, 
RIGHT, BACK... una serie de instrucciones o bien nada menos que 
varios subprocedimientos encadenados. 

Intentemos ahora analizar su funcionamiento a través de la 
ayuda ofrecida por una serie de programas de ejemplo. 

Dibujemos un rectángulo (recorcemos cómo habíamos hecho 
esto en el capítulo tercero, con un gran gasto de memoria): 


TO RECTANGULO 


Llamemos a este procedimiento RECTANGULO predispdnien- 
do así al intérprete LOGO para que lo acepte como una palabra 
nueva del vocabulario; después pulsemos 


REPEAT 2 [FORWARD 30 LEFT 90 FORWARD 50 LEFT 90] 


La instrucción REPEAT tiene como parámetro el número de 
veces que la lista de instrucciones debe repetirse (2 veces en 
nuestro caso) y estas mismas que, en orden, son: FORWARD 30, 
LEFT 90, FORWARD 50, LEFT 90. 

Lancemos ahora el programa y tendremos lo que se muestra 
en la figura 1. 

Existe un método aún más correcto para obtener el mismo re- | 
sultado: 

Definir un subprocedimiento del tipo: 
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ho 


yo" 1.—Rectángulo obtenido mediante la instrucción REPEAT. 


TO ARISTA 


FORWARD 30 

LEFT 90 

FORWARD 50 

LEFT 20 
END 


y luego llamarlo de esta manera: 


TO RECTANGULO 
REPEAT 2 [ARISTA] 


END 


Intentemos ahora construir otro procedimiento que utilice 
REPEAT y a la vez el subprocedimiento RECTANGULO: 


TO VENTANA 


REPEAT 2 ERECTANGULO FORWARD 30] 
LEFT" 20 

FORWARD 25 

LERTIGO 

FORWARD 60 


END 
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Obtendremos lo que se ve en la figura 2. 


0] Figura 2.—Llamadas repetidas a RECTANGULO. 


Ahora veamos cómo conseguir una estrella (Fig. 3): 


TO ESTRELLA 


REFEAT 18 [FORWARD 100 RIGHT 1401 


END 


1] Figura 3.—Otras posibilidades de la instrucción REPEAT. 
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Y, para acabar, una espiral: 
TO ESPIRAL ¿RADIO 


REFEAT 30 [MAKE "RADIO ¿RADIO + 5 
FORWARD ¿RADIO RIGHT 901] 


END 


Para ver los resultados (Fig. 4) pulsar: 


ESPIRAL 10 


10 Figura 4—Unión de REPEAT y variables de entrada. 


En el procedimiento ESPIRAL aparece otra vez, como verán, 
la utilización de una variable. Estas son las artífices de una pro- 
gramación eficaz, ya que, permitiendo la variación en el interior 
de un ciclo de los parámetros esenciales, nos dejan cambiar no- 
tablemente las características de lo que hacemos sin tener que re- 
currir a la utilización de nuevas reescrituras del programa. 

Hemos visto ya en el capítulo anterior la utilización de las va- 
riables en los procedimientos y subprocedimientos; veamos aho- 
ra cómo "explotarlas” mejor en relación a la instrucción REPEAT. 

Sea CUADRADO un procedimiento sencillo que trace la figu- 
ra homónima: 


TO CUADRADO  :LADO 
REPEAT 4 [FORWARD :¿LADO RIGHT 90] 
END 
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Para ejecutarlo hará falta dar como entrada no sólo el nombre 
del procedimiento, sino también el valor inicial de las variables 
asociadas. En otras palabras: si deseamos que el cuadrado tenga 
como lado 10. 20. 30.. deberemos escribir: 


RUN CUADRADO 10 
RUN CUADRADO 20 


y así seguidamente (en el capítulo 3 debería haber quedado cla- 
ro este concepto). 

De esta manera es sencillo trazar figuras similares con un solo 
programa en que haya sido introducida de manera oportuna una 
variable y, eventualmente, construir un procedimiento de control 
con los decrementos o incrementos deseados (como hicimos en 
ESPIRAL). 

De forma particular veamos cómo incrementa” una variable 
en un ciclo dominado por REPEAT para dibujar una serie de fi- 
guras "concéntricas” (Fig. 5): 


1) Figura 5.—Combinación de REPEAT y MAKE con variables. 


La instrucción MAKE, como ya sabemos, permite efectuar ope- 
raciones con las variables (en nuestro caso, una suma) durante la 
ejecución del programa. 

TO CUADRADO “¿LADO 
REPEAT 4 [FORWARD ¿LADO RIGHT 90] 
END 
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TO FIGURAS. CONCENTRICAS ¿DIAMETRO 


REPEAT 10 [MAKE "DIAMETRO :¿DIAMETRO+10 
CUADRADO : DIAMETRO] 


END 


Finalmente, estudiemos una interesante serie de procedimien- 
tos que están en correlación y que dibujan los triángulos de la fi- 
gura 6. 


hd) Figura 6.—Dos ejemplos del procedimiento CINCORECTANGULOS. 
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Pulsando, por ejemplo, RUN CINCOTRIANGULOS 10 y RUN 
CINCOTRIANGULOS 30 tendremos, sucesivamente, las figuras: 


TO TRIANGULO :LADO 


REFEAT 3 [FORWARD “LADO RIGHT 120] 


END 


TO CINCO. TRIANGULOS ¿LADD 


REPEAT 5 [MAKE "LADO ¿LADO + 40 
TRIANGULO ¿LADO ALFA :LADOJ 


END 


TO ALFA :LADO 


FENUP 

HOME 

LERTZO 

FORWARD ¿LADO / 2 
LE57070 

FORWARD ¿LADO / 2 
RIGHT 180 
PENDOWN 


END 


Comparaciones y bifurcaciones 


El lenguaje LOGO permite al programador efectuar controles 
de tipo decisivo sobre los valores de las variables tanto numéri- 
cas como literales. 

Para comprender cualitativamente cuál es el significado y la 
función de las instrucciones de test, tomemos en consideración 
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un ejemplo, aparentemente banal, que encierra en sí, al examinar- 
lo menos superficialmente, varias ocasiones de reflexión. 

Supongamos que viajamos por una autopista con nuestro co- 
che; en cierto momento del recorrido se nos presenta a la vista 
una bifurcación de carretera con sus correspondientes carteles 
avisadores (Fig. 7). Puesto que para nosotros está claro cuál es la 
meta de nuestro recorrido, nos vemos obligados a efectuar una 
elección de la dirección y tomar, en consecuencia, el camino opor- 
tuno. 


o DESVIACION 
A MADRID 


¿E 


mua AUTOPISTA  muallll> 


¿E 


> DESVIACION 
A ZARAGOZA 


POS Figura 7.—Una simple disyuntiva en el camino. 
ANS 


Si nuestra meta es, por ejemplo, la ciudad de Madrid, entre 
las dos direcciones (que llevan una a Zaragoza y la otra a Madrid) 
elegiremos la segunda alternativa. 

¿Qué operaciones ha hecho nuestra mente en el momento en 
que hemos tomado la decisión? El proceso habrá sido, más o me- 
nos, el siguiente: 


e Slla dirección que quiero (Madrid)=indicaciones de la ca- 
rretera, ENTONCES tomo la desviación correspondiente. 

e Slla dirección que quiero (Madrid) NO=indicaciones de la 
carretera, ENTONCES sigo derecho. 


En otros términos: hemos confrontado lo que queremos con 
lo que vemos 


18 


De la misma manera actúa el intérprete LOGO en el momento 
de tomar una decisión. 

Si deseamos que cierto procedimiento o subprocedimiento 
se interrumpa en un cierto momento solamente si se han verifi- 
cado determinadas condiciones, por ejemplo en el momento en 
que la variable A toma el valor 100, tendremos que escribir: 


IF :A=100 STOP 


En consecuencia, cada vez que el procedimiento llegue a esta 
instrucción se operará una comparación entre el valor real y la 
constante 100: sólo en el caso en que la igualdad sea verdadera 
(¿A=100) se efectuará la instrucción STOP (o cualquier otro co- 
mando especificado), 

En el ejemplo anterior ha sido utilizado el operador de igual- 
dad ("="), pero existen otros que nos permiten una casuística muy 
completa. 

Presentamos seguidamente en la tabla 1 los operadores de re- 
lación y las funciones que llevan a cabo. 


OPERADOR SIGNIFICADO 


IGUAL 


MAYOR 


MENOR 


MAYOR O IGUAL 


MENOR O IGUAL 


DISTINTOS 


y peñan. 


Volviendo a hablar de la utilización de la instrucción TF, su for-" 
ma más sencilla es: 
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IF (expresión booleana) THEN (instrucción-es-) 
Intentemos ahora analizar detalladamente la expresión 


1. La primitiva “IF” advierte al intérprete LOGO que se debe 
efectuar una comparación. 

2. Por expresión booleana se entiende cualquier tipo de com- 
paración válida (a=b, a<>b, a>b, a<b.... ); el término “boo- 
leana” toma su nombre del matemático George Boole. El re- 
sultado de una expresión de Boole puede tomar exclusiva- 
mente los valores verdadero o fálso (TRUE o FALSE); por 
ejemplo, si a=1 y b=1, entonces a=b es “verdadero”, pero 
sia=1 y b=2, a=b es “falso”. 

3. El comando “THEN” indica que se desarrollen las Operacio- 
nes que siguen inmediatamente después exclusivamente 
en el caso de que el resultado de la expresión booleana 
sea "verdadero", 

4. El término (instrucción-es-) se sustituirá por la serie de ope- 
raciones que nosotros queramos que se lleven a cabo en 
el caso de que la expresión booleana sea verdadera. 


Aclaremos estos conceptos por medio del siguiente ejemplo 
(programa "INTERSECCIONES”). Supongamos que queremos girar 
una figura hasta el momento en que un contador supere un de- 
terminado valor numérico que nosotros elegimos igual a 100. 


TO INTERSECCIONES ¿CONTADOR ¿GIRO 
TF :CONTADOR + 100 THEN PRINT "FINAL 
DE LA EJECUCION STOF 
ROTACION :GIRO 
INTERSECCIONES (¿CONTADOR+10) :GIRO 


END 


TO ROTACION ¿GIRO 


CUADRADO 
LEFT :*GTRO 
END 
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TO CUADRADO 
REFEAT 4 [FORWARD 60 RIGHT 901] 
END 


El programa llama sucesivamente a tres subprocedimientos 
(INTERSECCIONES, ROTACION y CUADRADO) que trazan una se- 
rie de cuadrados que al girar unos respecto a los ctros generan 
un efecto que se observa en la figura 8. 


E Figura 8.—Efecto conseguido al dibujar varios cuadrados girados. 


La instrucción 


E CONTADOR > 100 THEN PRINT “FINAL DE LA EJECUCION 


para el programa, que de otra manera seguiría hasta el infinito. 
Estudiemos otro ejemplo: 


TO LLAMADA :FASO LONGITUD 


LEFT 90 
DIBUJA :FASO ¿LONGITUD 


END 
8l 


TO DIBUJA ¿FASO ¿LONGITUD 


FORWARD 1 
MAKE "LONGITUD ¿LONGITUD - 1 — ¿FASO 
_PENUF 

FORWARD ¿FASO 

PENDOWN 

IF ¡LONGITUD < 1 THEN STOP 

DIBUJA ¿PASO ¡LONGITUD 


END Ny 


El programa “DIBUJA :PASO :LONGITULD” exige como datos el 
paso del gráfico (la distancia entre una línea y la siguiente) y la 
longitud total del dibujo. 

Gracias a la utilización del operador de relaciones “<” la eje- 
cución del procedimiento termina en el momento en que la me- 
dida del gráfico a trazar toma un valor inferior a 1. 

Más abajo presentamos tres tablas (2, 3 y 4) que muestran las 
combinaciones posibles entre los fundamentales operadores de 


VERDADERO 
FALSO 
FALSO 


VERDADERO 


VERDADERO 


FALSO 


FALSO 


VERDADERO 


FALSO 


VERDADERO 


FALSO 


VERDADERO 


Tabla 3.—Partiendo de A>B los resultados de combinar los opera- 
dores lógicos de relación son los que se muestran. 


FALSO 
FALSO 
VERDADERO 
FALSO 
VERDADERO 


VERDADERO 


Tabla 4—La última hipótesis es A<B. 


relaciones y los resultados de aplicarlos a dos variables; la prime- 
ra línea de cada tabla constituye la hipótesis en base a la cual (a 
través de los mismos operadores) se llega a obtener un resultado 
de tipo booleano (verdadero o falso). Por ejemplo, en la tabla 2, 
donde suponemos A=B, la relación A>B será falsa, en tanto en la 
tabla 3 será verdadera. 

Una vez entendidos los fundamentos de la instrucción IF po- 
demos pasar ahora a ver otra expresión posible. 

Escribámosla en la siguiente forma e intentemos comprender 
las diferencias fundamentales con lo anteriormente dicho: 


IF (expresión booleana) THEN (Instrucción 1) ELSE (instruc- 
ción 2) 


e Si la expresión booleana es verdadera (vale TRUE) se lle- 
vará a cabo entonces la instrucción 1 y se ignorará la ins- 
trucciór. 2; 

e Si la expresión booleana es falsa (vale FALSE) se llevará a 
cabo entonces la instrucción 2 y se ignorará la 1. 


Es evidente que el grupo IF... THEN.. ELSE permite una mayor 
y mejor estructuración del programa. 

En la figura 9 encontramos el diagrama de flujo para la ins- 
trucción IF... THEN... ELSE. 

El procedimiento que sigue demuestra una aplicación posi- 
ble de la instrucción “ELSE”, 

El programa pregunta dos números e imprime un mensaje se- 
gún su relación (que el primero sea mayor que el segundo, los 
dos iguales o el primero es menor que el segundo). 


TO PROG 


CLEARTEXT 
INSTRUCCIONES ¿TESCRIBE LAS 
INSTRUCCIONES PARA EL USUARIOJ 
MAKE "X INPUTNUMERO ¿CFRIMER NUMEROJ 
INSTRUCCIONES 
MAKE "Y INPUTNUMERO 5 ESEGUNDO NUMEROJ 
IF ¿X= ¿Y THEN CASO. IGUALES ELSE 1F A 
¿X > :Y THEN CASO.MAYOR ELSE 
CASO. MENOR 


END 


, 


10] Figura 9. —Diagrama de bloques de la instrucción 1F.. THEN... ELSE. 


TO INPUTNUMERO 
OUTFUT FIRST (REQUEST) 


END 


TO CASO. IGUALES 


PRINT " 
PRINT CEL PRIMER NUMERO1 
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PRINT 
PRINT 
FRINT 


END 


TO CASO. 


PRINT 
PRINT 
PRINT 
PRINT 
FRINT 


END 


TO CASO. 


FRINT 
PRINT 
PRINT 
PRINT 
PRINT 


END 


" 


[ES IGUAL AL SEGUNDO] 


MENOR 


a 
"” 


TEL PRIMER NUMEROJ 


TES MENOR QUE EL SEGUNDO1 


MAYOR 
"” 


[CEL PRIMER NUMEROJ 


TES MAYOR QUE EL SEGUNDOI 


TO INSTRUCCIONES 


PRINT 
FRINT 
FPRINT 
PRINT 
FRINT 
PRINT 
PRINT 


END 


TESCRIBE UN NUMERO1 


[Y LUEGO PULSA LA TECLA DEI 


TRETURNI 


Sería un buen ejercicio que intentaran ustedes mejorar los 
subprocedimientos de salida de mensajes aprovechando la gran 
zona común que tiene”. 


TEST... IFTRUE... THEN... ELSE 


Supongamos que debemos calcular una sencilla suma y que 
queremos llamar a un subprocedimiento solamente en el caso par- 
ticular en que esta suma sea igual a un valor anteriormente fijado. 

Para lograr esto podemos recurrir a las instrucciones: 


TEST :A+:B=:D 
IFTRUE THEN SUBPROCEDIMIENTO 


Aclaremos ahora con la ayuda de un ejemplo (procedimiento 
VERDADERO.FALSO) cuáles son las distintas posibilidades de la 
instrucción IFTRUE. 

Este procedimien:o pide cuatro valores numéricos y arbitra- 
rios (X,y,2,5). 

En el caso de que la suma "“X+Y+Z” valga "S”, el programa im- 
prime el mensaje "es verdadero”, en caso contrario, tendremos 
como salida “es falso": 


TO VERDADERO. FALSO 


MAKE "X INPUTNUMERO 

MAKE "Y INPUTNUMERO 

MAKE "Z INPUTNUMERO 

MAKE "S INPUTNUMERO 

MAKE "To 1X + 3Y + 12 

TEST 1T = :S 

IFTRUE THEN PRINT [ES VERDADERO] ELSE 
PRINT [ES FALSOJ 


END 


TO INPUTNUMERO 
DUTFUT (REQUEST) 
END 
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TEST... IFFALSE... THEN... ELSE 


Por lo que se refiere a esta instrucción, el tema es equivalen- 
te a IFTRUE, considerando, sin embargo, las hipótesis al contrario. 

En otras palabras, el comando TEST verifica si la comparación 
es verdadera o falsa, pero las instrucciones que siguen a la pri- 
mitiva THEN se llevan a cabo sólo si el resultado del test resulta 
ser falso. 

El programa anterior, por lo tanto, se modificaría de esta ma- 
nera: s». 


TO VERDADERO. FALSO 


MAKE "X INFUTNUMERO 

MAKE "Y INFUTNUMERO 

MAKE "Z INFUTNUMERO 

MARE "S INFUTNUMERO 

MARE BIS ARA RA 

TESTONTO= ES 

IFFALSE THEN FRINT [ES FALSOJ1 ELSE 
FRINT [ES VERDADERO1 


END 


TO INFUTNUMERO 
OUTFUT (REQUEST) 


END 


HEADING 


Se trata de un comando muy particular Consiste en una me- 
dición de la orientación angular de la plumilla o tortuga (turtle) 
respecto a su dirección inicial (mirando hacia la parte superior de 
la pantalla). 

Si, por ejemplo, pulsamos: 
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HOME 
RIGHT 15 
PRINT HEADING 


obtendremos como contestación 
15 


El valor generado por la instrucción HEADING es de tipo nu- 
mérico y, por lo tanto, es posible confrontarlo con cualquier otro 
(variable o constante) a través de la acostumbrada relación del 
tipo: 


IF HEADING (Operador relacional) y THEN... 


“ANYOF” y “ALLOF” 


La sintaxis de estas instrucciones, relativamente sosfistica- 
das, es: 


ANYOF (expresión. booleana 1) (expresión booleana 2) 


ALLOF (expresiónbooleana 1) (expresión booleana 2) 


Porlo tanto, ambas instrucciones requieren como parámetros 
dos expresiones booleanas. 

En base a lo anteriormente visto seguramente han intuido que 
este tipo de relación proporciona un resultado solamente del tipo 
FALSE o TRUE. 

Las dos primitivas en cuestión, según lo que valen los argu- 
mentos (expresión 1 y expresión 2), generan el mensaje TRUE o 
FALSE. La tabla 5 muestra todas las combinaciones posibles. 

La primera columna está constituida por resultados de la ex- 
presión 1; la segunda, por los relativos a la expresión 2, y la ter- 
cera y la cuarta son los valores obtenidos por las primitivas AN- 
YOF y ALLOF, respectivamente. Como verán, equivalen, sencilla- 
mente, a los operadores lógicos OR y EXOR. 


La recursividad 


El término "RECURSIVIDAD” indica el proceso lógico por el 
cual un proceso en ejecución se llama a su vez. 
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EXPRES. 1 | EXPRES. 2] ANYOF ALLOF 


po o Ju ue 
Doa 
Ae 
Doa 


El procedimiento elemental: 


TO EJEMPLO. RECURS IVIDAD 


FORWARD 50 
LEFT 120 
EJEMPLO. RECURSIVIDAD 


END 


es un claro ejemplo de lo anteriormente dicho. 

Es fácil ver que un programa de estas características proce- 
de hasta el infinito; no existe, de hecho, ninguna condición para 
parar la ejecución. 

Probablemente el más inmediato y entusiasta campo de apli- 
cación de la técnica de la recursividad es el aspecto gráfico (ade- 
más de algunos cálculos matemáticos). 

Pulsemos la breve secuencia siguiente (los números anterio- 
res a las instrucciones no deben escribirse; sirven exclusivamen- 
te para poder comentar más ágilmente el funcionamiento del pro- 
grama) 


ó01 TO DIBLIJA. ESFIRAL 


02 FORWARD :LADO » 
03 RIGHT 90 

04 ESPIRAL :LADO+3 

OB END 


y la ejecutamos con 
RUN DIBUJA ESPIRAL 1 


La imagen que resulta es la mostrada en la figura 10. 


COL 
COC 


Estudiemos línea por línea el funcionamiento del programa en 
cuestión. 


e LINEA Ol 
Está constituida por la declaración del procedimiento ESPI- 
RAL y del parámetro variable TADO, sobre el cual trabajará. 

e LINEA 02 
La instrucción FORWARD ¿LADO hace que la tortuga vaya ha- 
cia adelante un número de posiciones igual al valor de la va- 
riable :LADO, 

e LINEA 03 
Gira la tortuga 90 grados hacia la izquierda, determinando las 
aristas de la espiral. 

e LINEA 04 
En este momento se efectúa el proceso de recursividad: se lla- 
ma al procedimiento DIBUJA.ESPIRAL pasándole el valor 
puesto al día de :LADO (igual a :LADO + 3). 


El ciclo empieza de nuevo desde el punto (1) sin terminar 
nunca. : 
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El lector seguramente habrá intuido que un posible sistema 
para interrumpir la ejecución de un programa recursivo podría 
ser recurriendo a las primitivas IF... THEN... 

Estudiemos el siguiente programa, un poquito más difícil que 
los anteriores, que adopta justo esta técnica (recursión + IF..) para 
calcular un número factorial. 


01 TO FACT :X 


02 FACTORIAL 2X 2X 

O3 END al 

04 TO FACTORIAL :X ¿Y 

OS IF ¿Y=0 THEN OUTFUT (1) 

07 OQUTFUT :X k (FACTORIAL :X-1 :Y-1) 


08 END 


Por factorial de un número entero positivo “n” se define ma- 
temáticamente el producto de los números enteros sucesivos des- 


de l hasta "n” 
Por ejemplo, el factorial de 3 es: 


1*2*3=6 
y el factorial de 6 es: 
12€3%4*5*6=:120 


La regla anteriormente descrita admite una excepción: por defi- 
nición, el factorial de cero es uno (el programa FACT tiene en 
cuenta también esto). 

Para ejecutar el procedimiento se actúa dando el acostumbra- 
do RUN, acompañado por el número del cual queremos que se cal- 
cule la función factorial. 

Por ejemplo escribamos: 


RUN FACT 3 
y tendremos el valor (3*2*1): 
RESULT : 58 y 
Veamos atentamente cómo funciona el programa (repeti- 
remos de nuevo que las líneas han sido numeradas solamente con 


el fin de facilitar la búsqueda de las instrucciones; estos números 
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no forman parte del programa y, por lo tanto, no deben pulsarse) 
siguiendo el proceso de su ejecución para el ejemplo anterior. 


e LINEA 01 
Define el procedimiento FACT, la variable "X” está colocada, 
con referencia al eiemplo, en el valor 3. 


e LINEA 02 
Se lleva a cabo un salto incondicional hacia el subprocedi- 
miento FACTORIAL, al cual se pasa un doble valor (:X :X). 


e LINEA 04 

La variable “X” y la “Y” se ponen al valor numérico 3. 
e LINEA 05 

“Y” vale 3: las instrucciones que siguen al test se ignoran, 
e LINEA 06 


Se debe mandar como salida el resultado de X*FACTORIAL 
de (X-1): De hecho, el factorial de 3 es igual a 3 (=X) por el 
factorial de 2 (=X-1). 

Fn este momento el ordenador deberá calcular cuánto vale 
el factorial de 2, que es la operación que le queda pendiente; 
llama entonces por recursividad al subprocedimiento FAC- 
TORIAL pasándole el valor X-1 (=2) y el Y-1 (=2). 

La ejecución del programa vuelve a la línea 04, 


e LINEA 05 
Las instrucciones posteriores al IF se ignoran, ya que el test 
es TRUE (Y=X=2<>0). 


LINEA 06 
El factorial de X (=2) se puede ver como X por el factorial de 
X-1 (=1); es el segundo nivel de recursividad: se llama otra 
vez subprocedimiento FACTORIAL pasándole el valor, X-1 
(=1). 


LINEA 05 
Fl test no está todavía satisfecho (si han entendido el meca- 
nismo comprenderán que el test será TRUE en el siguiente 
paso). 

LINEA 06 
El factorial de 1 (X) es 1 por el factorial de 0 (X-1). 
Es el tercer nivel de recursividad; otra vez una llamada al sub- 
procedimiento FACTORIAL con "X” e “Y” que va:en, por fin, O. 


LINEA 05 
El test se verifica: se genera en la salida el valor 1. 
La siguiente instrucción que se lleva a cabo es 21 END de lí- 
nea 7. : 
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e LINEA 07 
En este punto el ordenador puede calcular por fin el produc- 
to, anteriormente buscado, entre 2 y el factorial de 2-1; el re- 
sultado es 2*1=2,. 
Este valor permite el postergado cálculo del factorial de 
3=3*factorial de dos = 3*2=6. 

e LINEA 03 
El programa puede así, finalmente, cerrar su ejecución. 
El lector que haya encontrado algún problema al seguir el 
hilo del razonamiento, repítalo teniendo en cuenta la ilustra- 
ción de la figura 10. 


FACTORIAL (3) = OUTPUT 3 + FACTORIAL (2) 


FACTORIAL (2) = OUTPUT 2 +» FACTORIAL (1) 


FACTORIAL (1) = OUTPUT 1 +» FACTORIAL (0) 


FACTORIAL (0) = OUTPUT 1 


[UT Figura 10.—Esquema para seguir el proceso del cálculo del facto- 
20 rial de 3. 


Programas resumen 
El programa TRAYECTORIA simula el movimiento de un pro- 
yectil del cual se deben proporcionar el valor de la velocidad ini- 
cial, el ángulo de inclinación inicial con respecto al eje “x” y el 
efecto de la gravedad. e 
TO TRAYECTORIA ¿OMEGA :VELOCIDAD :ALFA 


FORWARD  :*VELOCIDAD/10 


RIGHT ¿ALFA 

MAKE "ALFA ¿ALFA+O.9 

IF ¿ALFA > ¿OMEGA THEN MAKE "ALFA 
¿ALFA-1 

MAKE "WELOCIDAD : VELOCIDAD-1 

IF HEADING > 180 THEN STOP 

TRAYECTORIA : OMEGA : VELOCIDAD : ALFA 


END 


TO SIMULA ¿OMEGA ¿VELOCIDAD ¿ALFA 


SINGLECOLOR 

HOME 

CLEARSCREEN 

PENUF 

LEEN 70 

FORWARD 130 

RIGHT 180 

LEFT ¿OMEGA 

FENDOWN 

TRAYECTORIA ¿OMEGA ¿VELOCIDAD ¿ALFA 


END 


Introduciendo los datos 45 50 O (o sea, RUN SIMULA 45 50 0) 
se obtiene el resultado de la figura 11. 


Figura 11.—Trayectoria del proyectil con los valores 45, 80 y O. 


Seguidamente incluimos los listados de algunos procedimien- 
tos que sintetizan lo que hemos estudiado hasta ahora: 


EN Figura 12.—Una de las figuras obtenidas con estos procedimientos. 


Para ejecutarlos utilice el comando RUN acompañado, si es 
necesario, por los datos de entrada. 


PROGRAMA "BORDADO" 


TO BORDADO 


HOME 
CLEARSCREEN 
ALFA 10 20 20 


END 


TO ALFA :LADO :ANGULO ¿FASO 


RACK ¿LADO ñ 
LEFT :ANGULO 
ALFA ¿LADO (:ANGULO + FASO) :FASO 


END 
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PROGRAMA *"”ROSON" 


TO ROSON 


MAKE "LADO 110 


FOLTARISTA :LADO 


END 


TO FOLIARISTA ¿LADO 


RIGHT ¿LADO 
REFEAT ¿LADO/3 [ARISTA ¿LADOJ 


END 


TO ARISTA ¿LADO 


FORWARD *LADO 


RIGHT 170 


FORWARD :LADO 


END 


PROGRAMA "INTEGRAL ” 


TO INTEGRAL 


HOME 
CLEARSCREEN 
PENUPF 
FORWARD 40 
FENDOWN 
RIGHT 40 
BETA 20 


END 


97 


98 


TO BETA : ANGULO 


FORWARD 15 
RIGHT : ANGULO 
BETA : ANGULO+S 


END 


PROGRAMA 


TO PETALOS 


HOME 

LEFT 90 
FORWARD 7 
RIGHT 90 
FORWARD 40 
CLEARSCREEN 


"“PETALDLOS" 


REFEAT 12 [RIGHT 120 ARCO 1] 


END 


TO ARCO :FASO 


FORWARD ¡FASO 

RIGHT 6 

IF ¿PASO %< 15 ARCO :FASO+1 
END 
PROGRAMA "FLOR" 


TO TALLO :X 


BACH. 17 
LEFT 3xX 


IF :X <%< 20 THEN TALLO 


END 


1 X+2 


TO FLOR 


HOME 

FORWARD 30 

CLEARSCREEN 

LEFT 20 

REFEAT 3 [MAKE "CONTADOR 1 FETALO 11 
RIGHT 40 

TALLO 1 


END 


TO FETALO ¿START 


FORWARD 10 

RIGHT ¿START 

IF ¿START < 20 THEN FETALO :¿START+2 
RIGHT 60 

MAKE "CONTADOR : CONTADOR+1 

IF CONTADOR > 2 THEN STOP 

PETALO 1 


END 


OPERACIONES NUMERICAS 


Representación binaria 


n conjunto de las primitivas del lenguaje está 
enteramente dedicado a la manipulación de la 
irformación numérica binaria. 

Vamos a aclarar antes de todo el significa- 
do de este término, aunque pueden acudir a 
volúmenes anteriores de la B.B.I (especialmen- 
te el 1) para más detalles. Sabemos que nues- 
tro ordenador está preparado para resolver 
una notable cantidad de cálculos, pero no to- 
dos conocemos la técnica que la máquina utiliza pa representar 
en su interior la información numérica. A causa de las limitaciones 
de la electrónica convencional todas las informaciones (también 
las no numéricas) están codificadas en grupos de DES E 

Un BIT es la mínima unidad de información; puede estar ex- 

clusivamente en dos estados: activado (nivel 1) o apagado (ni- 
vel 0). Mediante la Ághapa sión de bits podemos codificar “diversos 
tipos de informacione: 

Un número decimal, por lo tanto, será representado por el or- 
denador como una colección de "n” bits. 

Estudiemos ahora un algoritmo que nos permita también a no- 
sotros llevar a cabo la conversión cesde un valor numérico (para 
simplificar la cosa, entero y positivo) al correspordiente equiva- 
lente binario. 

Tomemos como ejemplo el número decimal 131. El proceso 
de conversión será: 

Dividirlo por 2. 


131/2=cociente 65 resto 1 
101 


Dividamos de nuevo el cociente que hemos obtenido por 2: 
65/2=cociente 32 resto 1 
Procedamos igual hasta obtener un cociente CERO. 


32/2=cociente 16 resto O 

16/2=cociente 8 resto O 
8/2=cociente 4 resto O 
4/2=cociente 2 resto 0 
2/2=cociente 1 resto O S.. 
1/2=cociente O resto 1 


El cociente es nulo y, por lo tanto, podemos terminar las ope- 
raciones. 

En este momento transcribimos en orden inverso (desde el 
final al principio) los restos de las sucesivas divisiones, obte- 
niendo: 


10000011 


Pues bien, ésta es la representación binaria del número deci- 
mal 131. 


Operadores lógicos binarios 


El lenguaje LOGO, como hemos dicho anteriormente, dispone 
de instrucciones preparadas para el tratamiento de la información 
numérica binaria: estudiémoslas atentamente. 


BITAND argumento 1 argumento 2 

Efectúa la función lógica AND entre los argumentos. En otros 
términos, compara el formato binario de los dos valores y sobre 
«a base de la taola de la verdad representada en la tabla 1 genera 
el valor binario apropiado. 

Por ejemplo, pulsemos de manera directa: 

PRINT BITAND 244 35 ; 
intentemos comprender por qué el resultado es 


RESULT : 32 
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Argumento 1 Argumento 2 Resultado 


ES Tabla 1.—Función lógica AND. 


as 


Convirtamos el número decimal 244 a binario, hagamos lo mis- 
mo con el 35 y coloquémoslos uno debajo del otro como sigue: 


Decimal 244=binario 11110100 
Decimal 35=binaio00100011 


Examinemos el primer bit (por la izquierda) del número 244 
(vale 1) y realicemos la operación AND (haciendo referencia a su 
tabla de la verdad) con el primer bit del número 35 (vale 0). 

La línea de la tabla 1 que nos interesa es, por lo tanto, la ter- 
cera: las entradas que tenemos son 1 y O, como salida obtendre- 
mos un bit desactivado (vale 0). . 

Repitamos el mismo razonamiento para los restantes 7 bits de 
los-dos números: 
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0 


0-0 04 0nN 


La cuarta columna recoge los valores que se derivan de las 
sucesivas operaciones. 

Esta es pues la representación binaria del resultado buscado 
por nosotros (BITAND 244 35). 

Coloquemos de forma horizontal los bis obtenidos en la últi- 
ma columna, añadiendo el del bit número 1: 


00100000 


Vamos a ver ahora cómo podemos convertir este número binario 
obtenido en el correspondiente decimal, que, como esperamos, 
tendrá que ser 32. 

El algoritmo a seguir es el siguiente: se vuelve a escribir en 
orden invertido la secuencia de bits encontrada, obteniendo: 


00000100 


Cogemos entonces cada bit, procediendo desde la izquierda a la 
derecha, y lo multiplicamos por potencias crecientes de dos, co- 
menzando por la potencia “cero” (2%=1). 


VALOR RESULTADO 


PRIMERO 0*(2)= 0 
SEGUNDO 0*(21)= 0 
TERCERO 0* (2?) = 
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CUARTO 


QUINTO 
SEXTO 
SEPTIMO 
OCTAVO 


0*(23)= 0 
0*(2%)= 0 
1 * (25) = 32 
0*(25)= 0 
0* (2% = 0 


Al sumar los resultados de los productos tendremos el valor 
decimal correspondiente, que es justo igual a 32. 


BITOR argumento 1 argumento 2 


Realiza la función lógica OR entre los argumentos. Contraria- 
mente a la función AND, la tabla de la verdad que caracteriza el 
operador “OR” es la expresada en la tabla 2. 


Argumento 1 Argumento 2 Resultado 


(E y Tabla 2.—Tabla de la verdad de la función lógica OR. 
NES 


Para verlo prácticamente pulsemos de manera directa: 


PRINT BITOR 244 35 


(que son los mismos números utilizados en la discusión de la fun- 
ción AND). 
La computadora contestará cor. el mensaje 


RESULT : 247 
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Recordemos que los valores decimales 244 y 35 equivalen a 
los binarios: 


Decimal 244=binario 11110100 
Decimal 38=binaio00100011 


Efectuando el mismo procedimiento que para el operador AND 
examinemos el bit más a la izquierda del número 244 (=1) y lo 
comparamos con el primero del número 35, haciendo en este caso 
referencia a la tabla de la verdad de la función OR. 

La línea a tomar en consideración es.otra vez la tercera: como 
entradas tenemos 1 y 0, y como salida, un bit a nivel 1 (encendido). 

Si repetimos el mismo razonamiento para los restantes bits de 
los dos números obtendremos la tabla que sigue: 


0 
1 
0 
0 
0 
1 
1 


La última columna, como pasaba en la función AND, es la 
expresión binaria del número buscado por nosotros (247 =BITOR 
244 35). 

Si queremos, finalmente, convertir en decimal el valor 
11101111 (obtenido después de haber invertido la secuencia de 
bits presentes en la cuarta columna), escribiremos: 


00 0 00+a (0 DN 


PRIMERO 
SEGUNDO 
TERCERO 
CUARTO 


QUINTO 

SEXTO 1* (25) = 32 
SEPTIMO 1* (28) = 64 4 
OCTAVO 1 * (27) =.128 


Suma = 247 
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BITXOR argumento 1 argumento 2 


era Con 


La primitiva 
licar la ¡ lusiva a los gun 
La tabla de la verdad relativa a este ope 
bla 3. 


Argumento 1 Argumento 2 Resultado 


7 Tabla 3.—Función OR exclusiva (XOR) aplicada a dos argumentos. 


En lo que se refiere a las técnicas necesarias para la utiliza- 
ción de este operador valen las mismas consideraciones utiliza- 
das para las funciones AND y OR. 

Seguidamente les ofrecemos el listado del programa CON- 
VERSION. Después de escribir de manera directa: 


RUN CONVERSION NUMERO1 NUMEROZ2 

El programa imprimirá en la pantalla, en formato binario, los 
dos números de entrada y, siempre en binario, el resu-tado de rea- 
lizar con ellos las operaciones AND, OR y XOR. 
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El programa, durante la fase de la conversión de decimal a bi- 
nario sigue el algoritmo de las divisiones sucesivas utilizado por 
nosotros manualmente antes, empleando la primitiva QUOTIENT 
que veremos en el siguiente apartado: 


TO CONVIERTE : NUMERO 


MAKE "CONTADOR 0 
MAKE "EINARIO E] 
MAKE "RESTO O 
DECIM.RBIN ¿NUMERO 
PRINT ¿BINARIO 


END 


TO CONVERSION ¿NUMERO1 2: NUMERO2 


NODRAW 

PRINT [1 

FPRINT [LA REFRESENTACION BINARIAJ 

PRINT [1 

PRINT OEDEL PRIMER NUMERO ES: 1 

PRINT [J 

CONVIERTE :¿NUMERO1 

FRINT [1] 

FRINT [Y LA DEL SEGUNDO NUMERO: 1 

FRINT [CJ 

CONVIERTE :NUMERO2 

PRINT CI 

FRINT CLA OPERACION "AND" DA COMO 
RESULTADO: 3 

PRINT CJ 

CONVIERTE BITAND ¿NUMERO1 ¿NUMERO2> 

FRINT [] 

PRINT [LA OPERACION "OR" FRODUCE EL , 
RESULTADO SIGUIENTE: 1 

PRINT [3 

CONVIERTE BITOR ¿NUMERO1 :NUMERO2 
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FRINT [1 

PRINT CAL USAR LA "OR EXCLUSIVA" NOS 
ENCONTRAMOS CON: 1 

PRINT 13 

CONVIERTE BITXOR :¿NUMERO1 : NUMEROZ 

FRINT [CJ 


END 


TO DECIM.BIN ¿NUMERO 


MAKE "CONTADOR :* CONTADOR+1 
IF CONTADOR = 9 THEN STOF 
MAKE "RESTO :¿NUMERO-2 QUOTIENT 
¿NUMERO 2 ¿[VER SIGUIENTE APARTADO 
FARA QUOTIENTI 
MAKE "BINARIO SENTENCE ¿BINARIO ¿RESTO 
DECIM.EIN QUOTIENT ¿NUMERO 2 


END 


Operadores algebraicos 


El lenguaje LOGO pone a disposición del programador una 
serie de instrucciones cuya función se desarrolla todo en el cam- 
po matemático. 5 

Además de los acostumbrados operadores algebraicos +, *, -, 
/, podemos disponer de las primitivas: 


INTEGER argumento 


El argumento puede ser un número, una variable numérica O 
una expresión. 

Cada vez que se utiliza esta instrucción se genera como sa- 
lida un valor numérico igual a la parte entera del argumento. 

Obtendremos, por ejemplo, que 


INTEGER 51 > 5 
INTEGER 59 > 5 
INTEGER -7.2 > -7 
INTEGER -78 => -7 
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O también 
INTEGER 65 —> RESULT 65 


ROUND argumento 


También la primitiva ROUND requiere como entrada un valor 
numérico (censtante, variable o también una expresión). 

Si el valor de entrada es entero no será alterado; en caso con- 
trario el argumento se redondea al entero más próximo. De he- 
cho, por ejemplo, resultará que: 


ROUND 43 > 4 
ROUND 46 => 5 
ROUND -7.8 = -8 
ROUND -7.2 > -7 


y que 
ROUND 5654 > 5654 


QUOTIENT elementol elemento2 


La utilidad de esta primitiva se nota cada vez que es necesa- 
rio calcular un cociente entre dos elementos (constantes y/o va- 
riables). 

El resultado es el valor entero del cociente; por lo tanto, no 
tendrá significado una orden del tipo: 


PRINT INTEGER QUOTIENT 30 4 


He aquí unos ejemplos prácticos del empleo de la primitiva 
de que hablamos: 


PRINT QUOTIENT B4> 2 
PRINT QUOTIENT — -143> -4 
PRINT QUOTIENT  6(-24)> 0 
PRINT QUOTIENT  0534> 0 


Nótese que si el argumento2 es negativo deberá colocarse 
entre paréntesis. 

Es útil que el programador, durante el desarrollo de un algo- 
ritmo que utilice la primitiva QUOTIENT, tenga en cuenta que la 
segunda entrada (divisor) no puede ser nula y que, en consecuen- 
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cia, si lo fuera, surgiría un mensaje de error que pasa necesaria- 
mente la ejecución al procedimiento que se esté efectuando, 


REMAINDER argumentol argumento2 


Al contrario de la función desarrollada por QUOTIENT, la pri- 
REMAINDER calcula el resto de la división entre los dos ar- 

gumentos enteros, que pueden ser constantes y/o variables nu- 
méricos; en el caso de que el segundo argumento sea negativo, 
es necesario colocarlo entre paréntesis. 

He aquí unos ejemplos: 

REMAINDER 102 — RESULT: 0 

REMAINDER 143 => 2 

REMAINDER -52 > 1 

REMAIND=R 4(-8) > 0 


SQR argumento 


Por último, hablemos del operador SQR: éste da la raíz cua- 
drada del argumento. 

Una advertencia para el programador más inexperto: sólo se 
puede calcular con SQR el valor de la raíz cuadrada de un núme- 
ro positivo o, a lo sumo, nulo. 


Funciones trigonométricas 


, 


La finalidad de este apartado es guiar al lector para que re- 
pase las principales funciones trigonométricas. 

Antes de nada es necesario recordar la definición de circun- 
ferencia gonicmétrica: con este término se habla de una circunfe- 
rencia con centro en el origen de un sistema de ejes cartesianos 
ortogonales y de radio arbitrario que convencionalmente se su- 
pone unitario (Fig. 1). 

La circunferencia goniométrica es dividida por los ejes car- 
tesianos en cuatro CUADRAN'TES. 


Primer cuadrante: Arco AB 

Segundo cuadrante: Arco BA' 
Tercer cuadrante: Arco A'B' 
Cuarto cuadrante: ArcoB'A' 
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E Figura 1.—Circunferencia goniométrica. 


Haciendo referencia a esta circunferencia con radio unidad 
podemos afirmar por definición que: 


El seno de un arco es la ordenada del extremo de dicho arco 


y que: 


El coseno de un arco es la abscisa del extremo de dicho arco 


En la figura 2 se puede ver cómo seno y coseno son función 
de la amplitud del arco y varían según la variación de éste. Para 
el ángulo elegido (ar) el seno sería “Y” y el coseno "X”. 

Se puede dibujar un diagrama que ponga en relación el valor 
del ángulo y el seno o coseno correspondiente. 

Si sobre las ordenadas llevamos la medida del ángulo y so- 
bre las abscisas el correspondiente valor de la función del seno, 
obtenemos lo que se representa en la figura 3. 

Con el mismo sistema para la función coseno resulta la figura 
4, 

Estos gráficos resaltan las características más notables de am- 
bas funciones trigonométricas, que pueden ser sintetizadas en: 

e ambas son periódicas (con un período de 3600); 

e son funciones limitadas; varían, como hemos dicho, desde 

un mínimo (-1) hasta un valor máximo (+1); 

e la función seno es positiva en el primero y en el segundo 
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E Figura 2.—Visualización gráfica de la relación entre seno, coseno y 
el arco correspondiente. 


cuadrantes y negativa en el tercero y cuarto. Además, la si- 
nusoide es creciente en el primero y cuarto cuadrantes y 
decreciente en los restantes; 

e el coseno es positivo en el primero y cuarto cuadrantes, y 
negativo en el segundo y tercero. Además, es sencillo ve- 
rificar en el diagrama que es creciente en los cuadrantes 
tercero y cuarto, y decreciente en los restantes. 


0 Figura 3.—Diagrama de la función SENO. 


y = Cosx 


EN Figura 4 —Diagrama de la función COSENO. 


El breve programa siguiente traza en la pantalla el diagrama 
de la función SENO y el eje de las abscisas (para facilitar una re- 
ferencia cómoda): 


TO SENO :X 


IF :X > 360 HOME STOP 
SETXY :X / 2 -— 100 100 *X SIN 2X 
SENO 21X + 3 


END 


Restemos atención a la tercera línea del procedimiento: 
“SIN :X” calcula el seno del argumento, 


"SETXY :X/2-100 100*SIN :X” 


lleva la tortuga hasta la posición especificada del sistema de ejes 
cartesianos ortogonales fijados en la pantalla. 

Ya que hemos recordado el concepto de seno y coseno, exa- 
minemos otra función trigonométrica fundamental: la tangente. 

Se llama tangente trigonométrica de un ángulo la relación en- 
tre el seno y el coseno del mismo. 

En términos matemáticos sería: 
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TANGENTE (alfa)=SIN (alfa)/COS (alfa) 


El diagrama relativo a la función de que hablamos está repre- 
sentado en la figura 5. 

La tangente no está definida en los ángulos 1/2, 31/2, etc. 
Como verá, son los mismos en los cuales se anula el coseno; esto 
pasa porque "tang=sin/cos” y, por lo tanto, no puede definirse en 
los puntos en que hay cero en el denominador. 

Un programa sencillo que nos da la posibilidad de trazar el 
diagrama de la función tangente es: 


TO GRAFICO :X 


IF :X + 360 HOME STOF 

IF (CDS :X) = O HOME STOP 

MAKE "Y 100 k (SIN :X) / (COS :X) 

IF 3Y < -100 THEN PENUP GRAFICO ¿X+S 
sTOFP 

IF ¿Y >+:100 THEN FENUF GRAFICO ¿X+5 
STOP 

SETXY :X / 2 - 100 2Y 


Figura 5.—Diagrama de la función TANGENTE. 


115 


PENDOWN 
TANGENTE :X + 3 


END 


TO TANGENTE 


HOME 
CLEARSCREEN 0 
GRAFICO O 


END 


Generación de números aleatorios 


El lenguaje LOGO pone a disposición del programador una in- 
teresante y, en algunos casos, insustituible finción numérica: se 
trata de la primitiva "RANDOM n”, que genera como salida un va- 
lor numérico aleatorio, comprendido entre 0 y (n-1). 

Es importante recordar que el argumento de esta instrucción 
debe ser necesariamente positivo y entero. 

Un ejemplo de utilización de esta instrucción está constituido 
por el programa ADIVINE que presentamos a continuación: 


TO TRANSNUMERO 
OUTPUT FIRST : TENTATIVA 


END 


TO OK 


NODRAW 
REFEAT 4 CREPEAT 33 C[PRINT1 "*x3 
PRINT [13 
FRINT [J 
FRINT CiFELICIDADES! LO HA LOGRADO 1 p 
PRINT [1 
PRINTí SENTENCE [CEN SOLO ] ¿TEN 
PFRINT [ETENTATIVASI 
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PRINT EJ 
REFEAT 4 [REFEAT 33 CPFRINTi "*XI 
PRINT CJ] 

PRINT [1 
PRINT [1] 
FRINT [F 
FRINT [C 
FRINT (1 
MAKE "RESPUESTA READCHARACTER 
IF ¿RESPUESTA = "C THEN ADIVINE 


FINAL] 
CONTINUAR] 


END 


TO ENTRADA 


NODRAw 

REFEAT 3 C[PRINT 1113 

PRINT [INTRODUZCA SU NUMERO1 
PRINT [J 

MAKE "TENTATIVA REQUEST 


END 


TO JUEGO 


MAKE "TEN :TEN + 1 


ENTRADA 
MAKE "TENT TRANSNUMERO 
1F ¿TENT = ¿NUMERO. PENSADO THEN OK 


IF ¿TENT > :¿ NUMERO. FENSADO THEN 
PRINT [1] PRINT [MI NUMERO ES MENOR 
QUE EL SUYO] PRINT [3] FRINT REQUEST 
JUEGO 

IF ¿TENT <% :NUMERO. PEMSADO THEN 
PRINT [1 PRINT [MI NUMERO ES MAYOR 
QUE EL SUYO1 FRINT [1 FRINT REQUEST 
JUEGO 


END 
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TO ADIVINE 


MAKE "TEN O 

NODRAW 

PRINT ([] 

FRINT [YO FIENSO UN NUMERO J 

PRINT (] 

FRINT [COMPRENDIDO ENTRE O Y 100] 
PRINT [] 

PRINT [USTED DEBERA ADIVINARLOJ 
PRINT [CJ 

FPRINT [EN EL MENOR NUMERO FOSIELE DEJ 
FRINT [1 

FRINT CINTENTOS, TENIENDO EN CUENTAJ 
PRINT [1 

PRINT TODAS LAS SUGERENCIAS QUE L.EJ 
PRINT [1] 

PRINT CTIRE HACIENDO] 

PRINT £1 

PRINT REQUEST 

MAKE "NUMERO. FENSADO RANDOM 100 
JUEGO 


END 


La finalidad del programa es conseguir en el menor número 
de intentos la individualización de una cifra generada aleatoria- 
mente por la computadora. 

Además, el programa guía al usuario a través de los intentos, 
advirtiendo si el número propuesto por él es menor o mayor que 
aquel elegido. 

Un ejemplo de ejecución del programa podría ser: 


RUN ADIVINE 


YO PIENSO UN NUMERO 

COMPRENDIDO ENTRE 0 Y 100 . 
USTED DEBERA ADIVINARLO 

EN EL MENOR NUMERO POSIBLE DE 

INTENTOS, TENIENDO EN CUENTA 

TODAS LAS SUGERENCIAS 
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QUE LE IRE HACIENDO. 
<RETURN> 
INTRODUZCA SU NUMERO 


40 

MI NUMERO ES MAYOR 
QUE EL SUYO 

<RETURN> 

INTRODUZCA SU NUMERO 
50 

MI NUMERO ES MENOR 
QUE EL SUYO 

<RETURN> 

INTRODUZCA SU NUMERO 
45 


ANS dddSOdddddicdodcicddiciciciok ok 
AAA 
AO 
EAS 


¡FELICIDADES! LO HA LOGRADO 
EN SOLO 3 TENTATIVAS 


ARNES dd ddcdddididodciidicicioiciok 
AA 
EA 
AAA 


F=FINAL 
C=CONTINUAR 
E 


y el programa termina la ejecución. 

Volviendo a la utilización de la primitiva RANDOM es intere- 
sante usarla en aplicaciones de tipo gráfico. Aunque aparentemen- 
te sencillo, este empleo es, sin embargo, muy difícil. Realizar di- 
bujos agradables al ojo humano quiere decir unir al aspecto “re- 
gular” de la imagen unos parámetros aleatoriamente variables: 
crear un tema de fordo sobre el cual actúa la fantasía de la pri- 
mitiva RANDOM. 

En caso contrario, si confiamos la ejecución de la imagen so- 
lamente a lo casual, nos deberemos conformar con verdaderos 
“fos”, como el que se representa en la figura 6, obtenido con el 
procedimiento DIBUJA. 


TO DIBUJA 


MAKE "CO 
ESFIRAL RANDOM 100 
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DIRBUJA 


END 


TO ESPIRAL 2X 


FORWARD + X 

RIGHT 90 

MAKE "C 10 + 1 

IF ¿C > 4 THEN STOP 
ESPIRAL 2:X + 1 


END 


Figura 6.—Resultado del procedimiento DIBUJA, en el que sólo ac- 
túa el factor aleatorio. 
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CIRCULOS, PARABOLAS Y ELIPSES 


l lector, sin duda, habrá visto ya que el intérpre- 
te LOGO es rico en instrucciones gráficas o no 
fundamentales cuya función, aunque elemental, 
es de indiscutible e insustituible valor. 

Primitivas como las clásicas FORWARD, 
LEFT, etc. son muy poco sofisticadas, pero a 
ellas se encomiendan tareas irrerunciables por 
parte del mismo lenguaje. 

En las páginas anteriores hemos hablado a 
fondo de cómo poder construir (definir) a través de estas primi- 
tivas un conjunto de órdenes más complejas que satisfagan las es- 
pecíficas exigencias del programador. 

Este capítulo quiere representar, en este sentido, una ayuda 
válida para el programador que tenga la intención de enfrentarse 
con problemas de tipo gráfico, como el dibujo de arcos, círculos 
o figuras más complejas. 


Círculos y arcos 


El procedimiento más sencillo que podemos escribir para di- 
bujar una circunferencia es el que sigue: 


TO CIRCULO 
HOME 


CLEARSCREEN 
PENUF 
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LEfFF=90 

FORWARD 100 

PENDOWN 

REFEAT 360 [FORWARD 1 RIGHT 11] 


END 


El procedimiento CIRCULO genera la figura geométrica re- 
querida, sin recurrir a la ecuación matemática típica de la circun- 
ferencia, que, además, no es nada fácil; úitiliza exclusivamente el 
principio del “polígono regular”. 

En otras palabras, crea un polígono de 360 lados tan peque- 
ños que al ojo humano parece una circunferencia. 

Este método, desde luego, ofrece sus mejores resultados 
cuando el lado del polígono tiende a Y (teóricamente un segmen- 
to de longitud nula es igual a un punto). 

Podemos decir, por lo tanto, que una circunferencia es apro- 
ximable por un polígono regular que tenga como caracteristicas 
estos parámelros: 


N=número lados (tan grande como sea posible). 
L=dimensión de un lado (tan pequeña como sea posible). 
LIMITE N*L=perímetro de la circunferencia. 

N inversamente proporciona a L de manera que: 

N=1/L 


En este contexto, y teniendo en cuenta la resolución gráfica 
de las computadoras, un buen resultado se puede obtener toman- 
do como medidas del lado y del ángulo la unidad. 

Obtendremos así el dibujo de un círculo como el de la fi- 
gura l. 


y) Fiyyura 1.—Círculo obtenido como un polígono regular de 360 lados. 
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Si quisiéramos una mejor aproximación sería suficiente cam- 
biar la instrucción REPEAT del programa de esta manera: 


REPEAT 720 (FORWARD 0.5 RIGHT 0.5) 


Esta manera de trazar una circurferencia es, sin duda, la más 
sencilla, pero no permite control alguno por parte del usuario en 
las dimensiones y características de la misma. 

Intentemos ahora crear un procedimiento que pueda llevar a 
cabo una serie de círculos con distintos diámetros. 


Pulsemos: 


TO CIRCULO :LADO 


HOME 

CLEARSCREEN 

PENUFP 

LEFT 90 

FORWARD 100 

PENDOWN 

REFEAT 360 [FORWARD ¿LADO RIGHT 11 


END 


De esta manera podemos variar las características de la cir- 
cunferencia dibujada introduciendo un parámetro (lado del polí- 
gono) variable. 

Pero esta solución resuelve nuestros problemas sólo eh par- 
te: si quisiéramos dibujar sencillamente un arco de circunferencia 
con un cierto ángulo respecto al centro no sería posible. 

El programa que sigue permite estas operaciones además de 
las anteriores. 


TO CIRCUNFERENCIA :ARCO 
:¿ VARIACION. ANGULAR 


REPEAT ¿ARCO / ¿VARIACION. ANGULAR 
CFORWARD ¿VARIACION. ANGULAR RIGHT 
: VARIACION. ANGULAR I 


END 
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Intentemos examinar el funcionamiento de este programa, que 
a primera vista puede aparecer sencillo porque es corto, y que, 
sin embargo, tiene sus dificultades. 

Antes de nada se proporcionan como entradas los paráme- 
tros relativos a la medida del arco (en grados) y al valor de la va- 
riación angular deseada entre un lado y su adyacente del polígo- 
no regular que genera el círculo (si crece este parámetro aumen- 
tarán las dimensiones del diámetro). 

La instrucción REPEAT tiene como primer argumento (núme- 
ro de ciclos) el resultado de la división entre ARCO y VARIA- 
CION.ANGULAR que queda fijada antes de que varíe este último 
parámetro. 

En otras palabras, si introducimos estos valores 


ARCO: 100 grados 
VARIACION.ANGULAR : 2 grados 


La repetición determinada por (ARCO/VARIACION.ANGU- 
LAR) será de 50. 

Para obtener una circunferencia (recordar que no es, en de- 
finitiva, nada más que un arco de 360 grados) deberíamos pulsar 


RUN CIRCUNFERENCIA 360 1 


-. Estudiemos ahora, antes de examinar aspectos más comple- 
jos de las curvas, algunos programas demostrativos. 


CI RCUNFERENC IAaAas 
TANGENTES 


TO CIRC.TANG 


HOME 

CLEARSCREEN 

PENUP 

LEFT 90 

FORWARD 100 

FENDOWN 

RIGHT 90 

REFEAT 360 [FORWARD 1 RIGHT 11 ú 
REPEAT 360 [FORWARD 1.5 RIGHT 11] 

REPEAT 240 [FORWARD 1 RIGHT 1.5] 


END 
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En Figura 2.—Circunferencias tangentes interiores. 


e 


Genera la figura 2. 


CIRCUNFERENC IAS 
EXTERIORES 


TO CIRC.EXT 


REPEAT 360 [FORWARD 1 RIGHT 11 
REPEAT 360 [FORWARD 1 LEFT 11 


END 


Dibuja la figura 3. 


' Figura 3.—Dos circunferencias tangentes exteriores. 
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Falta una página 


Falta una página 


TO EJES 


HOME 
CLEARSCREEN 
SETXY 155 O 
HOME 

SETAY 13535: 0 


END 

Al realizar 

RUN PARABOLA 20 
obtendremos lo que muestra la figura 5. 

Nótese cómo al incrementarse el valor del parámetro “A” dis- 
minuye el crecimiento hiperbólico de los lados de la parábola. En 
otros términos, un número pequeño significa una figura más “co- 
rrada”, y viceversa. 
Elipses 

Matemáticamente la elipse es el lugar geométrico de los pun- 


tos del plano cuyas distancias a dos puntos fijados (fl y 12) llama- 
dos focos tienen una suma constante. 


1) Figura 5.—Parábola. 
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La ecuación general es: 

(Y2/A2)-(?2/B?)=1 

Para dibujarla usaremos el siguiente procedimiento: 
TO ELIPSE :A :B 


EJES 

FENUP 

HIDETURTLE 

PLOTTER — :A :A :B 1 


END 


TO PLOTTER :X 2:24 :B 2 INC 


1F (5KX X 2X) > (24 *X :A) STOP 

IF :X = :A THEN MAKE "INC (- : INC) 

SETXY +X ¿INC kX :B xXx SOR (1 - (3X 2 
2X) / (184 k :M)) 

PFENDOWN 

PLOTTER :X + INC :A :B 2INC 


END 


TO EJES t 


HOME 
CLEARSCREEN 
SETXY 155 O 
HOME 
SETXY -155 O 


END 


Para ejecutar lo que hemos escrito pulse: 


RUN ELIPSE 100 180 10 10 
que nos dará el resultado representado en la figura 6. 
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E Figura 6.—Elipse. 


Tenga en cuenta que el primer parámetro corresponde a la 
medida del eje mayor y que el segundo se refiere a la medida 


del eje menor. 

De esta manera se puede obtener una elipse con el eje ma- 
yor paralelo al de las abscisas: 

RUN 100 100 10 10 
o paralelo al de las ordenadas: 


RUN 30 100 10 10 
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LOS FICHEROS 


amos a ver aquí los comandos dedicados en 
el LOGO al tratamiento de los ficheros, lípicos 
de las versiones basadas en el COMMODORE 


64 y en el Apple Il 


Versión COMMODORE 64 


SAVE "nombrefichero 


Traslada todos los procedimientos presentes en memoria al 
disco, dando al ficherc el nombre especificado. , 


SAVE “nombrefichero [Procel Proce2..] 


Abre sobre el disco un fichero con el nombre especificado y 
traslada a él exclusivamente los procedimientos especificados 
como argumentos, a condición que estén presentes en memoria. 


READ “nombrefichero 


Carga del disco y del fichero deseado las primitivas contenidas 
que, si son distintas a las presentes en la memoria, se añaden a 
ellas; en caso contrario las sustituyen. 

Una técnica particularmente interesante puede ser hacer que, 
después de una instrucción READ, el programa cargado en me- 
moria sea ejecutado automáticamente. 
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Supongamos tener residente en memoria el programa PRG 
que deseamos registrar sobre disco con la técnica de ejecución 
automática (AUTOSTART). 

Pulsamos el comando: 


MAKE “STARTUR [PROG] 


que crea y coloca al fondo del listado de nuestro programa la va- 
riable STARTUP que contiene la lista [PRG]. 
En este momento grabemos sobre disco el programa PRG: 


SAVE "PRG 
y la operación estará concluida. 


Si ahora queremos cargar nuestro programa (mejor después 
de un ERASE ALL) es suficiente escribir: 


READ “PRG 


Después de haber llevado a cabo la carga será ejecutado auto- 
máticamente sin necesidad de nuestra intervención. 


BSAVE “nombrefichero star end+] 


Esta primitiva salva en disco una región entera de memoria; 
más exactamente desde la dirección “star” hasta la “end” dándole 
el nombre “nombrefichero.LOGO”, Las direcciones “star” y “end” 
deben ser dos valores decimales enteros y positivos. 


BLOAD "nombrefichero 

Ejecuta la función contraria de BSAVE. Coloca en memoria el 
contenido del fichero indicado, generado anteriormente gracias 
al mando BSAVE, 

SAVEPICT "nombrefichero 


Copia en el fichero de nombre especificado el contenido de 
la página de alta resolución. 

La opción SAVEPICT crea sobre disco dos ficheros: el prime- 
ro contiene las informaciones gráficas, el segundo los colores,, 


READPICT "nombrefichero 


Si anteriormente hemos registrado una figura con el mando 
SAVEPICT podemos visualizarla de nuevo utilizando esta primiti- 
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va. Evidentemente sólo tiene sentido en el caso de que el fichero 
buscado exista: en caso contrario, el sistema genera un mensaje 
de error. 


CATALOG 


Visualiza la lista de los nombres de todos los ficheros presen- 
tes en el disco introducido en la unidad. 


ERASEFILE "nombrefichero 


Borra del disco el fichero especificado en el argumento. Si no 
existe fichero con el nombre buscado genera un mensaje de error. 


DOS [NEWimnombredisco, 1D] 


Ejecuta la operación de formateo de disco necesaria para pre- 
parar un disco virgen, nunca utilizado, para las futuras grabacio- 
nes. La identificación (ID) es un número entero de dos cifras que 
se adjudica al disco junto con el nombre, para facilitar sus futuras 
búsquedas. 


DOS [RENAMEnuevonombre=viejonombre] 


Supongamos haber registrado sobre disco un fichero llamado 
“ANTES' y que queremos cambiar su nombre por el de “DESPUES”; 
será suficiente utilizar la primitiva RENAME pulsando 


DOS [RENAME:DESPUES=ANTES] 
La operación es automática. 
DOS [COPY :nombrecopia=ficheroacopiar] 


La primitiva COPY abre el fichero llamado "nombrecopia” y 
copia en él el contenido del fichero "iicheroacopiar”. 

La operación es posible si en el disco está presente el fichero 
a duplicar y si el nombre del fichero duplicado no corresponde a 
ningún fichero ya presente en el disco. 


DOS [SCRATCH:nombrefichero] 
Esta instrucción es análoga a la primitiva ERASEFILE; borra sin 


remedio del disco el fichero cuyo nombre está especificado en 
el argumento. 
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E EEE 


Determina como salida un listado con sólo dos elementos: el 
primero es el valor actual de la abscisa del cursor, el segundo 
constituye la ordenada de éste. 


DOUBLECOLOR X 


Dispone la pantalla gráfica de modo doble color; la resolución 
horizontal disminuye (150 puntos) pero se pueden utilizar hasta 
16 colores diferentes (y también dos simultáneamente en la mis- 
ma región de 8x8 puntos) en base a la tabla 1 del primer capítulo. 

Tenga en cuenta que si se trabaja en manera de doble color 
la instrucción STAMPCHAR provoca resultados anómalos (carac- 
teres ilegibles) por el cambio de la resolución horizontal (y por 
factores más complejos que ahora no es oportuno tratar). 


DRAWSTATE 


Potente comando que genera un listado que contiene todas 
las informaciones actuales de la tortuga en el siguiente orden: 


e estado de la tortuga (FALSE=Plumilla levantada/TRUE=Plu- 
milla bajada); 

e visibilidad de la tortuga (FALSE=tortuga no visi- 
ble/TRUE=tortuga visible); 

e código color pantalla (número entero desde 0 a 15), 

e color de la tortuga; 

e modo color (estándar o doble color, o bien singlecolor o 
doublecolor); 

e modo visualización (gráfica, texto o gráfica y texto); 

e código del color atribuido a la pantalla en baja resolución; 

e color de los caracteres. 


El listado generado por DRAWSTATE después del ercendi- 
do de la máquina es: [TRUE TRUE 11 1 DRAW SINGLECOLOR 
SPLITSCREEN 14 1] 


FPRINT X 
En el caso de que el argumento "X” sea una tabla se imprime 
en la pantalla con paréntesis, contrariamen:e a lo que pasa para 
la clásica y más utilizada PRINT (o PRINT1). 
HEADING 


Genera el valor en grados del ángulo tomado por la tortuga. 
Recordamos que después de instrucciones del tipo HOME, CS y 
DRAW la instrucción HEADING genera el valor O (cero grados). 
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JOYSTICK X 


La variable "X” debe asumir exclusivamente los valores O Ó 
1; la primitiva determina la actual posición del joystick introduci- 
do en la puerta número “x”. 

JOYBUTTON X 


Como JOYSTICK requiere que el parámetro “x” valga 0 ó 1; el 
comando JOYBUTTON genera el mensaje TRUE si el botón del 
joystick se pulsa; en caso contrario tendremos la señal FALSE. 


NOPRINTER 


Después de una operación sobre impresión empezada gra- 
cias al mando PRINTER, NOPRINTER cierra los canales de comu- 
nicación anteriormente abiertos. 


NOWRAP 


En el modo gráfico estándar (WRAP), en el caso de que la tor- 
tuga salga por un lado de la pantalla, volverá a entrar inmediata- 
mente por el lado contrario. Es posible gracias a la instrucción 
NOWRAP evitar esto. Si intentamos escribir 


HOME NOWRAP FORWARD 5000 


obtenemos de hecho el mensaje de error "TURTLE OUT OP 
BOUND” (muy cerca de la expresión española “tortuga fuera de 
la pantalla”). Para volver al modo gráfico normal es suficiente re- 
currir a la expresión WRAP. 


PADDLE X 


Es posible controlar la actual posición del Paddle número “x” 
gracias a esta interesante primitiva. 


PADDLEBUTTON x« 


Genera el mensaje TRUE o FALSE, dependiendo de que la te- 
cla del Paddle número "x” se pulse o no. 


PRINTER 

Al ejecutarlo, las acostumbradas primitivas de impresión so- 
bre pantalla actuarán directamente sobre la impresora. Para vol- * 
ver al modo estándar basta pulsar NOPRINTER. 
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SETH X, SETHEADING X 


Fija el ángulo de la tortuga en el valor especificado por el ar- 
gumento “X”. 


SETSHAPE X 


El parámetro “x” debe de ser de tipo numérico e incluido en- 
tre 0 y 7 (entero); este comando asigna a la plumilla activa (en to- 
tal son 8) la imagen del “sprite” (duende, figura) número “x” (estos 
también son 8). En el momento del encendido a la plumilla núme- 
ro O corresponde el sprite 0, a la número 2 el sprite 2, y así su- 
cesivamente. 


SHAPE 


Da el valor del argumento de la última instrucción SETSHAPE 
que ha sido efectuado; en el caso de que pulsemos SHAPE sin ha- 
ber llevado a cabo anteriormente la primitiva SETSHAPE, obten- 
dremos el valor 0. 


SINGLECOLOR 


Lleva el modo de visualización de alta resolución al formato 
estándar si anteriormente había sido alterado por la primitiva 
DOUBLECOLOR. 


TELL x 


El valor de la variable “x” debe ser entero e incluido entre O 
y 7. Probablemente no todos saben que el LOCO basado en sis- 
temas COMMODORE pone a disposición del programador 8 spri- 
tes. Es posible usarlos todos, pero sólo pueden moverse de uno 
en uno. Por ejemplo, escribiendo TELL 3, todas las instrucciones 
que pulsemos después serán asignadas automáticamente a la ter- 
cera plumilla. En el momento del encendido la máquina trabaja 
con el SPRITE número O habiendo dispuesto el estado de los res- 
tantes 7 (véase DRAWSTATE) al valor (TRUE, TRUE..); en otras pa- 
labras, si deseamos dibujar por medio de la plumilla número *x” 
(con x%0) hace falta ante todo pulsar la secuencia TELL x PEN- 
DOWN (baja la plumilla "x”) SHOWTURTLE (haz visible la tortuga). 


TOWARDS x y 


Potente primitiva gráfica. Genera el valor del ángulo que la 
tortuga tomaría desplazándose desde la posición en que se en- 
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cuentra hasta el punto de coordenadas "x” e "y”. Si escribimos, por 
ejemplo, HOME INTEGER TOWARD 100 100 obtendremos el valor 
entero 45, ya que la recta que une el punto (0, 0), donde se en- 
contrará la tortuga después de DRAW, con el punto (100, 100), lo- 
calizado por los argumentos de la primitiva TOWARDS, está incli- 
nada justo 45 grados con respecto a los ejes cartes:anos. 


WHO 


Devuelve un valcr numérico entero e incluido entre 0 y 7 que 
corresponde al número de la plumilla con que actualmente esta- 
mos trabajando. Véase a este propósito el comentario relativo a 
la primitiva TELL x. Como en el momento del encendido el siste- 
ma trabaja con la plumilla número 0, pulsando WHO obtendremos 
por lo tanto 0. 


WRAP 

Ver NOWRAP. 

XCOR 

Devuelve el valor entero actual de la abscisa de la tortuga. 
YCOR 

Devuelve el valor entero actual de la ordenada de la tortuga. 


ASPECT x 


Potente instrucción con posibilidad de cambiar la escala de 
la definición gráfica horizontal. Muy a menudo ocurre que se tra- 
baja con monitores que tienen como características una pantalla 
más ancha que alta: la imagen que resulta está claramente distor- 
sionada y molesta además de ser estéticamente imprecisa (círcu- 
los que parecen elipses o cuadrados que se vuelven rectángu- 
los). Para evitar este inconveniente el intérprete LOGO pone a dis- 
posición del usuario esta primitiva: si pulsamos “.ASPECT x” po- 
dremos (a condición de que "x” sea distinto del valor estándar 
0,76) AUMENTAR o DISMINUIR la escala resolutiva vertical. 


CALL x 

Pasa todo el control del sistema a una subrutina en lenguaje 
máquina residente er. la memoria a partir de la dirección deci- * 
mal “x” especificada en el argumento; el usuario que tenga capaci- 
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dad de llevar a cabo programas en lenguaje máquina sabe que 
para volver al ambiente del intérprete LOGO es suficiente una 
insstrucción del tipo RTS. 


CONTENTS 


Lista los nombres de todos los procedimientos y de las va- 
riables actualmente residentes en la memoria de la computadora. 


DEPOSIT x y S 

Los argumentos de esta primitiva deben de ser ambos ente- 
ros y positivos (a lo sumo nulos); en particular, la variable "x” debe 
de estar incluida entre un mínimo de O y un máximo de 256*256, 
mientras el valor “y” debe ser necesariamente menor de 256. La 
instrucción “DEPOSIT x y” copia el contenido del argumento “x” 
en la posición “y” de la memoria RAM. 


EXAMINE x 


Genera el valor entero, incluido entre O y 255, leído en la po- 


sición de memoria ROM o RAM número “y”. 
¿¡GCOLL 


El intérprete necesita periódicamente mejorar la disposición 
de las variables de memoria; esta operación, llamada garbage co- 
llection, es llevada a cabo automáticamente por el sistema; sin em- 
bargo, se deja al programador la posibilidad de utilizarla si es ne- 
cesaria. 


NODES 


Interesante comando cuya función es poner en conocimiento 
del programador cuánta memoria RAM dispone todavía para el 
desarrollo y la ejecución de sus programas. Se aconseja utilizar la 
instrucción NNODES haciéndola preceder por la primitiva .GCOLL. 


SPRINT x 


La primitiva SPRITE-PRINT es, sin duda, de gran ayuda prác- 
tica para el programador que tenga la intención de adquirir una 
preparación completa acerca de la manipulación de los sprites. 
Pulsando “SPRINT x” el intérprete LOGO traslada a la pantalla de 
baja resolución lo que está codificado en la memoria de defini- 
ción relativa al sprite número *x”. 
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APPLE II Y LOGO 


n este capítulo se examinan las principales pri- 
mitivas del lenguaje con referencia a la versión 
basada en el APPLE IL 

Una buena parte de estas instrucciones han 
sido ampliamente discutidas; en este caso, al 
lado de cada uno se nombra el capítulo en el 
cual se ha hablado de ellas. 


Primitivas gráficas 
BG, BACKGROUND X 


Llena la página gráfica con el color correspondiente al códi- 


go "x” propuesto. 

CHAR X 

Genera el carácter cuyo valor ASCII es “x”; el argumento de 
esta primitiva, por lo tanto, debe de ser positivo (a lc sumo nulo), 
entero y menor de 255. 

CLEAN 


Borra el contenido de la página oráfica sin cambiar los pará- 
metros (posición, ángulo, etc.) de la tortuga. 


CS, CLEARSCREEN (Capítulo 1) 
CLEARTEXT 
141 


Como CLEARSCREEN, pero actúa en la pantalla de baja re- 
solución gráfica. 


CURSOR 


Da como salida la posición actual del cursor. 


DOT X 


Enciende un puntito en la pantalla en correspondencia con el 
valor de “x”. 


FD, FORWARD x (Capítulo 1). 
FULLSCREEN (Capítulo 1). 

HEADING 

Devuelve el ángulo tomado por la tortuga. 
HT, HIDETURTLE (Capítulo 1). 

HOME (Capítulo 1). 

PEN 


Genera un listado que contiene el tipo y color actualmente ca- 
racterísticos de la plumilla. 


PC, PENCOLOR (Capítulo 1). 


La tabla de códigos- colores típica del sistema APPLE ll es la que 


sigue: 
GO COLOR 


Negro 
Blanco 
Gris 
Violeta 
Naranja 
Azul marino 
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PD, PENIDOWN (Capítulo 1). 

PE, PENERASE (Capítulo 1). 

PX, PENREVERSE 

Pone en vídeo inverso el recorrido de la tortuga. 
PU, PENUP (Capítulo 1). 

SETH X, SETHEADING X 


Coloca la plumilla dándole un ángulo de “x” grados; las coor- 
denadas, sin embargo, no varían. 


SETPC n 
Da a la plumilla el color del código “x”. 
SETPEN X 


X debe de ser una lista que contenga tipo y co.or de la plu- 
milla. La primitiva se encargará de la asignación de estos paráme- 
tros a la tortuga. 


SETPOS X 


Mueve la tortuga hasta la posición definida por el paráme- 


La E, t 
SETX x (Capítulo 1). 
SETY y (Capítulo 1). 
SHOWNP 


Comprueba si la tortuga es visible; en tal caso genera el men- 
saje TRUE, si es al contrario, la salida es FALSE. 


ST, SHOWTURTLE (Capítulo 1). 
SPLITSCREEN (Capítulo 1). 
TEXTSCREEN (Capítulo 1). 
143 


Dispone la pantalla en modo texto, 

WINDOW 

Crea el llamado “modo ventana”. La tortuga tiene la posibili- 
dad de moverse en un espacio más amplio del representado por 
la pantalla. 

WRAP 


Después de esta orden, al salir la tortuga por un determinado 
lado de la pantalla vuelve a entrar por el lado contrario. 


XCOR 


Devuelve la abscisa de la tortuga. 


Devuelve la ordenada de la lorluga. 
Otras primitivas 
+ AND x y (como BITAND, Capítulo 5). 


ARCTAN x 


Calcula qué ángulo tiene una tangente cuyo valor está espe- 
cificado por el argumento "x”. 


ASCH x (Apéndice B). 

BURY pkg 

Borra todos los procedimientos contenidos en pkg. 

BF X, BUTFIRST X (Capítulo 3). 

BL X, BUTLAST X (Capítulo 3). 

BUTTO x : 

Controla si la tecla del paddle número “x” está pulsada; en 
caso afirmativo genera un mensaje TRUE, al contrario tendremos 


FALSE. 
144 


CATCH nombrelista 
Ejecuta la lista de instrucciones. 
010) 


Vuelve a coger la ejecución del procedimiento momentánea- 
mente suspendido por el comando PAUSE. 


COPYDEF X Y 


Potente primitiva que permite el inmediato duplicado de los 
contenidos del procedimiento “x” en el procedimiento “y”. 


COS x (Capítulo 5). 
COUNT x 


Si "x” es una lista que contiene "n” elementos, al aplicarle esta 
orden nos devolverá el valor “n”. 


EDNS x 


Introduce el operador de modo EDITOR pero sólo para las va- 


riables contenidas por el procedimiento “x”; es corveniente pro- 
porcionar como argumentos de EDNS dos o más nombres de pro- 
cedimientos. 


EQUALP x y (como x=y). 

ERALL (como ERASE ALL, Capítulo 2). 
ERASE x (Capítulo 2). 

ERN X 


Borra de la memoria la variable “x”. Está permitida una orden 
E tipo ERNS x y z; las tres (o más) variables serán anuladas en 
orden. 


ERNS x 


El parámetro “x” debe ser el nombre de un procedimiento ac- | 
tualmente definido; todas las variables contenidas en él se cance- 
lan. Están permitidas varias entradas (por ejemplo: ERNS x y 2). 
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FIRST x (Capítulo 3). 

FPUT x y (Capítulo 3). 

GO x 

Efectúa un salto incondicional de la ejecución del programa 
hasta la dirección (label) llamada “x”. El programador capaz NO 
debería utilizar esta primitiva. 

IF (Capítulo 4) ”. 

IFF, IFFALSE (Capítulo 4). 

IFT, IFTRUE (Capítulo 4). 

INT n (Capítulo 5). 

ITEM x 

Si el argumento “x” está compuesto por “y” elementos (y >x) 


se genera entonces como salida el elemento que ocupa la posi- 
ción "x” especificada por el argumento. 


LAST (Capítulo 3). 

LT x, LEF7 x (Capítulo 1). 

*LIST x y (como LIST, Capítulo 3). 
FLOCAL x (como LOCAL, Capítulo 3). 
LPUT x y (Capítulo 3). 

MAKE x y (Capítulo 3). 

MEMBER x y 


Se genera el mensaje TRUE si el elemento “x” está compren- 
dido en la lista “y”; en caso contrario resulta FALSE. 


NOT Predicado 


Genera una decisión de tipo TRUE si el predicado es FALSE, 
y viceversa. 


NUMBER x 
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Genera una decisión de tipo TRUE si el objeto "x” es un nú- 
mero. 


¿OR (como BITOR, Capítulo 5). 

OP, OUTPUT (Capítulo 3). 

Introduce una pausa en la ejecución del procecimiento. 
PO x (Capítulo 2). 

POALL (como PO ALL, Capítulo 2). 


POS 


Devuelve la actual posición de la tortuga. 

POTS xy (Capítulo 2). 

PRIMITIVEP x 

En el caso de que el argumento "x” corresponda al nombre 
de una primitiva del lenguaje se genera el mensaje TRUE (FALSE 
en el caso contrario). 

HPRINT x (como P2RINT, Capítulo 3). 

FRPRODUCT x y 

Calcula el producto de los argumentos. 

QUOTIENT x y 

Efectúa la división (x/y) y trunca su resultado. 

RANDOM n (Capítulo 5). 

RC, READCHARACTER (Capítulo 3). 

REMAINDER X Y 


Devuelve el resto de la división entre los argumentos ('x” di- * 
vidido por “y”). 
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MENSAJES DE ERROR 


n este apéndice se examinan los mensajes con 
los cuales nos avisa el LOGO en el caso de que 
el programa presente errores sintácticos y/o ló- 
gicos. 

El análisis se desarrolla sobre los sistemas 
Commodore 64 y Apple Il. 


Commodore 64 


(01): (Procedimiento) didnt output 


Este mensaje aparece cuando un procedimiento o una primi- 
tiva que tienen necesidad de argumentos están llamados con otros 
procedimientos o primitivas en lugar de los valores numéricos re- 


queridos. 
Ejemplo: 
INSTRUCCION: CUADRADO FORWARD 100 
error: CUADRADO didnt output 


(02): (Primitiva) doesnt like (datos) as input 


Indica una operación entre dos tipos de datos incompatibles, 
por ejemplo. una multiplicación emre un número y una lista. 


(03): (Primitiva) doesn't like (datos) as input it expects true or 
false 
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Aparece en las instrucciones if... then.. else.. not, allof, anyof, 
en que la computadora espera una proposición verdadera o falsa 
y se encuentra en la situación de deber evaluar una expresión 
del tipo: 

if. x - 10 then print [final] 
que no es ni verdadera ni falsa; la contestación será: 


if doesn't like 2 as input. it expects true or false 


(04): (mensaje) in line 

(línea) al level (nivel) of (nombre procedimiento) 

Es éste un tipo de mensaje que el intérprete va construyen- 
do; expone el nivel en que se ha parado el programa, la línea equi- 
vocada y el tipo de error. 

El error que sigue es un ejemplo de esto. 


(05): there is no procedure named (procedimiento), in line (lí- 
nea de Programa) at level (x) of (procedimiento) 


Ha sido llamado un procedimiento inexistente en la línea de 
programa listado, a nivel de operaciones (x) del procedimiento lla- 
mado. Por ejemplo: 


There is no procedure named fd 100, in line fd 100 
at level of cuadrado 


(06): (nombre) is a logo primitive. 

El LOGO advierte que no es posible definir nuestro procedi- 
miento con el nombre elegido, ya que representa una primitiva 
del lenguaje. 

(07): (Procedimiento) needs more inputs. 

El procedimiento llamado tiene necesidad de más datos. 

(08): (Primitiva) needs more inputs. . 

La primitiva llamada tiene necesidad de más datos. 

(09): (Operador aritmético) needs something before it, 
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. Se ha olvidado un operador aritmético en un cálculo numé- 
rico. 
Ejemplo: 
Print/21 
Contestación: "/needs something before it”. 


Es decir, falta el número que hay que dividir por 21. 


(10). (Primitiva) should be used only inside a Procedure 


Advierte que la primitiva empleada por nosotros no puede 
ser utilizada de manera directa sino sólo en un procedimiento. 


Ejemplo: 
output should be used only inside a Procedure 


(11): cart divide by cero 


El mensaje 11 indica que se está llevando a cabo una divi- 
sión por cero (absurdo desde el punto de vista matemático) que 
el ordenador no puede efectuar. 


(12): disk error 


Error debido a la unidad de disco. 


(13): end should be used only in the editor 

Indica el uso equivocado de la primitiva, “END”, como por 
ejemplo: “Print 8 end” pulsando de manera directa. 

(14): else is out of place 

Con este mensaje se señala la presencia de un "else” en el in- 
terior de una instrucción sin "if". 

Recordemos que, de hecho, no es posible escribir un else fue- 
ra de instrucciones “if... else”. 


(15): file not found 


El fichero requerido no ha sido encontrado; se aconseja exa- 
minar el directorio (catálogo) para estar seguros de la presencia" 
del fichero. : 
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(16): line given to define too long 


El argumento de “define” es superior a 256 caracteres y, por 
lo tanto, es rechazado por la computadora. 


(17): line given to repeat too long 

Lo mismo del error anterior con "repeat" en lugar de “define”. 

(18): line given to run too long 

Como el número 16 con "run” en lugar de “define”. 

(19): no storage left! 

Hemos agotado la memoria a nuestra disposición. La compu- 
tadora nos invita a no intentar memorizar nuevas cosas antes de 
haber borrado algún procedimiento con ERASE. 

(20): number too large 

El argumento numérico de la operación es demasiado grande. 


(21): number too small 


El argumento numérico de la operación es demasiado pe- 
queño. 


(22): procedure nesting too deep 


Han sido introducidos más de 200 procedimientos, número 
máximo aceptado por el Commodore 64. 


(23): the disk is full 


El disco en que estamos registrando los programas esté com- 
pleto. 


(24): the disk is write protected 

El disco está protegido de la escritura; no se grabó nada. + 
(25): there is no disk in the disk drive 

El disco no está presente en su unidad. 
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(26): turtle out of bounds 


La tortuga ha pasado los límites de altura y/o largo de la 
pantalla. 


Apple II 
(01): (Procedimiento) is already define 
El procedimiento ya ha sido definido. 
(02): number too big 
El valor numérico es excesivamente grande. 
(03): (Símbolo) isn't a procedure 


No es una palabra del vocabulario LOGO, es decir, no existe 
este procedimiento. 


(04): (Símbolo) isn't a word 

Lo especificado entre paréntesis no es una primitiva. 

(05): (Procedure) can't be use in a procedure 

No ha sido utilizado correctamente el procedimiento nombra- 
do entre paréntesis. 

(06): (Símbolo) is a Primitive : 


Este mensaje aparece cuando se intenta definir un procedi- 
miento con el nomkre de una primitiva. 


(07): (Símbolo) is undefined 

Lo que estamos buscando no ha sido definido. 

(09): 'm having trouble with tha disk 

Hay problemas por lo que se refiere a la lectura del disco. 


(10): disk full 
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El disco está completo; es necesario introducir otro o abrir es- 
pacio en el mismo. 


(11): Can't divide hoy cero 


Se está efectuando una división por cero o una operación ma- 
temáticamente imposible. 


(12): end of data 

Han terminado los datos. e 

(13): file alreading exists 

El fichero que queremos crear (en disco) ya existe. 

(14): file locked 

Señala que el fichero se encuentra ya “grabado” en disco. 
(15) file not found 


El fichero requerido no ha sido encontrado, no está en el dis- 
co introducido o es necesario poner “on line” la unidad de disco. 


(16): file is wrong type 


Ha sido requerido (o introducido) un fichero de tipo equi- 
vocado. 


(17): no more file buffers 


No es posible añadir más instrucciones. El buffer está al com- 
pleto. 


(18): (Símbolo) not found 
No ha sido encontrado lo que se ha pedido. 
(19): (Símbolo) is not true or false 


La primitiva no es verdadera ni falsa. Aparece en las propues- 
tas de "if.. then... else” y de manera particular, en “anyof” y "allof”. 


(20): Pausing... á 
Señal de espera. 
(21): stopped 
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Hemos interrumpido un procedimiento en marcha pulsando 
CTRL+9, 


(22): not enough inputs to (Procedimiento) 


_ No son suficientes las entradas proporcionadas al procedi- 
miento en marcha. 


(23): too many inputs to (Procedure) 


Lo contrario del anterior. 


ide parentheses 


(24): too much in 
Demasiadas instrucciones están encerradas entre paréntesis. 
(25): car, only do that in a Procedure 


Es posible operar de tal manera sólo en el interior de un pro- 
cedimiento. 


(26): turtle out of bounds 
La tortuga ha pasado los límites de la página gráfica. 
(27): don't know how to (simbolo) 


La computadora no reconoce esta instrucción como un pro- 
cedimiento ni como una primitiva: controlar la sintaxis. 


.. 


(28): (Símbolo) has no value 
El “símbolo” no tiene un valor definido. 
(29): don't know what to do wi (símbolo) 


La computadora no sabe cómo ejecutar esta instrucción: con- 
trolar la sintaxis. 


(30): disk is write protected 
El disco está protegido de la escritura. No se grabó nada. 
(31): (Procedure) doesnt like (símbolo) as input 


Este procedimiento no es admisible como ertrada. 
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EL CODIGO ASCII 


n este apéndice se muestran las tablas relati- 
vas alos códigos ASCII del COMMODORE y del 
APPLE IL 

Los comandos que permiten la utilización 
de los caracteres ASCII son: 


CHAR 


ERIC Genera el valor numérico correspondiente 
al carácter deseado; su sintaxis es: 


CHAR carácter 
ASCH 


Devuelve el carácter correspondiente al valor propuesto se- 
gún la sintaxis: 


ASCI número 


En la primera columna de las tablas se da el valor numérico 
decimal, y en la segunda, el carácter ASCII correspondiente. 
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COMMODORE 


CODIGO | Caracter || coDiGo | CARACTER 
90 
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COMMODORE (Continuación) 


CODIGO CARACTER e CODIGO CARACTER 


1 
E 
al 
O 
E 
H 
O 
E 
O 
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COMMODORE (Continuación) 


MAYUSCULAS 


al 
El 
2] 
O 
N 
Y 
O 
O 
El 
[e] 
1 
Pa 
Xx 


Ta 
Q 


CRSR 
CLR 
HOME 
INST 
DEL 


ada EERD 
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COMMODORE (Continuación) 


CODIGO CARACTER (Al CODIGO CARACTER 


ra da laa] de: |: JT: 
sara a ol cra] ela Ja ]= 
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COMMODORE (Continuación) 


XANDdosSd 


ra 
O 


[el 
Ol 
[9] 
EA 
dl 
M 
[rr] 
| 
Ll 
la] 
O 
Ú 
O 
O 


asa» 0p005A0080BD00D0iddADONE 


APPLE 


CODIGO CARACTER 10 CODIGO CARACTER 
26 z 


ESC 
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APPLE (Continuación) 


CODIGO CARACTER E CODIGO CARACTER 
54 78 


N 
o 
P 
Q 
R 
Ss 
T 
U 
v 
w 
x 
Y 
z 
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APPLE (Continuación) 


CODIGO CARACTER y CODIGO CARACTER 
194 h 


Los caracteres 128-255 son como los 0-127, pero en video inverso. 
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EQUIVALENCIAS EN CASTELLANO 


lgunas versiones del LOGO presentan sus pri- 
mitivas y palabras reservadas en castellano. 
Aunque no todas han elegido los mismos nom- 
bres, los más comunes se recogen en la tabla si- 
guiente. 


INGLES 


CASTELLANO 


CALL LLAMA 

AND AMBOS, Y 

ASCI NUMCARACTER, ASCII 
BACK ATRAS, RETROCEDE 
BG FONDO, COLORFONDO 
BUTFIRST MENOSPRIMERO 
BUTLAST MENOSULTIMO 
CATALOG CATALOGO 


ESCRIBECARACTER, CARACTER 
BORRA, LIMPIA 

COSENO 

CUENTA 

BORRAPANTALLA 

EDITAR, REVISAR 

FIN + 
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CASTELLANO 


ERALL SUPTODO 
ERASE SUPRIME 
ERF ELIMINAARCHIVO 
ERNS SUPNS 
ERPS SUPPS 
FALSE FALSO 
FIRST PRIMERO 
FORWARD ADELANTE —=. 
HEADING RUMBO 
CENTRO 
OCULTATORTUGA 
SI 
ENT 
ULTIMO 


IZQUIERDA, GIRAIZQUIERDA 
RECUERDA, CARGA 
HACER, ASIGNA 

NODOS 

NO 

UNCUOTRO, O 

RESPUESTA, DEVUELVE 
COLOR, COLORLAPIZ 
CONPLUMA, CONLAPIZ 
PLUMADEBORRAR, COMA 
El, ESCPROC 

ET, ESCTODO 

EN, ESCNS 

ESCPROCS 

DONDE, POSICION 

EP, ESCTS 

IMPRIME 

PRODUCTO 

SINPLUMA, SINLAPIZ 
PLUMAINVERSA, LAPIZREVES 


COCIENTE 

AZAR 

LEECARACTER, LEECAR 
REMAINDER RESTO 
REPEAT REPETIR, REPITA 
RIGHT DERECHA, GIRADERECHA 
RUN CUMPLE, EJECUTA 
SAVE GUARDA 
SETBG COLORFONDO, PONCF 
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CASTELLANO 


PONRUMBO 
PONCOLOR, PONCL 
PXY, PONPOS 

PX, PONX 

PY, PONY 
MUESTRA 

SENO 
RAIZCUADRADA 
MUESTRATORTUGA 
PARATE, ALTO 
SUMA 

DECIR 

PARA 

CIERTO 
MODOTEXTO 
ESCRIBE 

QUIEN 

ENROLLA 

XCOOR 
YCOOR 


no de los lenguajes de programación más 
“de moda” en los últimos tiempos es, sin 
duda, el LOGO. Nació como consecuen- 
cia de diversas investigaciones sobre in- 
teligencia artificial, pero ahora está dispo- 
nible en versiones para los más conoci- 
dos y populares ordenadores domésticos 
y personales y su aplicación está muy ex- 
tendida en escuelas y universidades, donde llega a co- 
dearse con el BASIC. 

Fácil de asimilar y con un aprendizaje muy rápido el 
LOGO es, además, un lenguaje sumamente potente. Junto 
a una capacidad gráfica envidiable, que permite la reali- 
zación de complejos dibujos, dispone de un manejo sen- 
cillo y claro de texto y cadenas de caracteres, además 
de peculiaridades tan interesantes como la recursividad 
y otras muchas que en este volumen de la B.B.I. les ex- 
plicaremos en profundidad con una gran cantidad de pro- 
bados ejemplos prácticos. 


395 pts. 
(incluido IVA) 


